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[57] ABSTRACT 

Adaptive compressive gain and level dependent spectral 
shaping circuitry for a hearing aid include a microphone to 
produce an input signal and a plurality of channels con- 
nected to a common circuit output Each channel has a preset 
frequency response. Each channel includes a filter with a 
preset frequency response to receive the input signal and to 
produce a filtered signal, a channel amplifier to amplify the 
filtered signal to produce a channel output signal, a threshold 
register to establish a channel threshold level, and a gain 
circuit. The gain circuit increases the gain of the channel 
amplifier when the channel output signal falls below the 
channel threshold level and decreases die gain of the channel 
amplifier when the channel output signal rises above the 
channel threshold level. A transducer produces sound in 
response to the signal passed by the common circuit output 
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ADAPTIVE GAIN AND FILTERING CIRCUIT 
FOR A SOUND REPRODUCTION SYSTEM 

GOVERNMENT SUPPORT 

This invention was made with U.S. Government support 
under Veterans Administration Contracts VA KV 674-P-857 
and VA KV 674-P-1736 and National Aeronautics and Space 
Administration (NASA) Research Grant No. NAG10-(X)40. 
The U.S. Government has certain rights in this invention. 

NOTICE 

Copyright ©1988 Central Institute for the Deaf. A portion 
of the disclosure of this patent document contains material 
which is subject to copyright protection. The copyright is 
owner has no objection to the facsimile reproduction by 
anyone of the patent document or the patent disclosure, as it 
appears in the Patent and Trademark Office patent file or 
records, but otherwise reserves all copyright rights whatso- 
ever. 

BACKGROUND OF THE INVENTION 

The present invention relates to adaptive compressive 
gain and level dependent spectral shaping circuitry for a 
sound reproduction system and, more particularly, to such 
circuitry for a hearing aid. 

The ability to perceive speech and other sounds over a 
wide dynamic range is important for employment and daily 
activities. When a hearing impairment limits a person’s 
dynamic range of perceptible sound, incoming sound falling 
outside of the person’s dynamic range should be modified to 
fall within the limited dynamic range to be heard. Soft 
sounds fall outside the limited dynamic range of many 
hearing impairments and must be amplified above the per- 
son’s hearing threshold with a hearing aid to be heard. Loud 
sounds fall within the limited dynamic range of many 
hearing impairments and do not require a hearing aid or 
amplification to be heard. If the gain of the hearing aid is set 
high enough to enable perception of soft sounds, however, 
intermediate and loud sounds will be uncomfortably loud. 
Because speech recognition does not increase over that 
obtained at more comfortable levels, the hearing-impaired 
person will prefer a lower gain for the hearing aid. However, 
a lower gain reduces the likelihood that soft sounds will be 
amplified above the hearing threshold. Modifying the opera- 
tion of a hearing aid to reproduce the incoming sound at a 
reduced dynamic range is referred to herein as compression. 

It has also been found that the hearing-impaired prefer a 
hearing aid which varies the frequency response in addition 
to the gain as sound level increases. The hearing-impaired 
may prefer a first frequency response and a high gain for low 
sound levels, a second frequency response and an interme- 
diate gain for intermediate sound levels, and a third fre- 
quency response and a low gain for high sound levels. This 
operation of a hearing aid to vary the frequency response and 
the gain as a function of the level of the incoming sound is 
referred to herein as “level dependent spectral shaping.” 

In addition to amplifying and filtering incoming sound 
effectively, a practical ear-level hearing aid design must 
accomodate the power, size and microphone placement 
limitations dictated by current commercial hearing aid 
designs. While powerful digital signal processing techniques 
are available, they can require considerable space and power 
so that most are not suitable for use in an ear-level hearing 65 
aid. Accordingly, there is a need for a hearing aid that varies 
its gain and frequency response as a function of the level of 
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incoming sound, i.e., that provides an adaptive compressive 
gain feature and a level dependent spectral shaping feature 
each of which operates using a modest number of 
computations, and thus allows for the customization of 
5 variable gain and variable filter parameters according to a 
user’s preferences. 

SUMMARY OF THE INVENTION 

Among the several objects of the present invention may 
be noted the provision of a circuit in which the gain is varied 
in response to the level of an incoming signal; the provision 
of a circuit in which the frequency response is varied in 
response to the level of an incoming signal; the provision of 
a circuit which adaptively compresses an incoming signal 
occurring over a wide dynamic range into a limited dynamic 
range according to a user’s preference; the provision of a 
circuit in which the gain and the frequency response are 
varied in response to the level of an incoming signal; and the 

provision of a circuit which is small in size and which has 
20 r 

minimal power requirements for use in a hearing aid. 

Generally, in one form the invention provides an adaptive 
compressing and filtering circuit having a plurality of chan- 
nels connected to a common output Each channel includes 
25 a filter with preset parameters to receive an input signal and 
to produce a filtered signal, a channel amplifier which 
responds to the filtered signal to produce a channel output 
signal, a threshold circuit to establish a channel threshold 
level for the channel output signal, and a gain circuit The 
30 gain circuit responds to the channel output signal and the 
channel threshold level to increase the gain setting of the 
channel amplifier up to a predetermined limit when the 
channel output signal falls below the channel threshold level 
and to decrease the gain setting of the channel amplifier 
35 when the channel output signal rises above the channel 
threshold level. The channel output signals are combined to 
produce an adaptively compressed and filtered output signal. 
The circuit is particularly useful when incorporated in a 
hearing aid. The circuit would include a microphone to 
^ produce the input signal and a transducer to produce sound 
as a function of the adaptively compressed and filtered 
output signal. The circuit could also include a second 
amplifier in each channel which responds to the filtered 
signal to produce a second channel output signal. The 
45 hearing aid may additionally include a circuit for program- 
ming the gain setting of the second channel amplifier as a 
function of the gain setting of the first channel amplifier. 

Another form of the invention is an adaptive gain ampli- 
fier circuit having an amplifier to receive an input signal in 
50 the audible frequency range and to produce an output signal. 
The circuit includes a threshold circuit to establish a thresh- 
old level for the output signal. The circuit further includes a 
gain circuit which responds to the output signal and the 
threshold level to increase the gain of the amplifier up to a 
55 predetermined limit in increments having a magnitude dp 
when the output signal falls below the threshold level and to 
decrease the gain of the amplifier in decrements having a 
magnitude dm when the output signal rises above the 
threshold level. The output signal is compressed as a func- 
50 tion of the ratio of dm over dp to produce an adaptively 
compressed output signal. The circuit is particularly useful 
in a hearing aid. The circuit may include a microphone to 
produce the input signal and a transducer to produce sound 
as a function of the adaptively compressed output signal. 

Still another form of the invention is a programmable 
compressive gain amplifier circuit having a first amplifier to 
receive an input signal in the audible frequency range and to 
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produce an amplified signal. The circuit includes a threshold 
circuit to establish a threshold level for the amplified signal. 
The circuit further includes a gain circuit which responds to 
the amplified signal and the threshold level to increase the 
gain setting of the first amplifier up to a predetermined limit 5 
when the amplified signal falls below the threshold level and 
to decrease the gain setting of the first amplifier when the 
amplified signal rises above the threshold level. The ampli- 
fied signal is thereby compressed. The circuit also has a 
second amplifier to receive the input signal and to produce 
an output signal. The circuit also has a gain circuit to 
program the gain setting of the second amplifier as a 
function of the gain setting of the first amplifier. The output 
signal is programmably compressed. The circuit is useful in 
a hearing aid. The circuit may include a microphone to 
produce the input signal and a transducer to produce sound 15 
as a function of the programmably compressed output 
signal. 

Still another form of the invention is an adaptive filtering 
circuit having a plurality of channels connected to a com- 
mon output, each channel including a filter with preset 20 
parameters to receive an input signal in the audible fre- 
quency range to produce a filtered signal and an amplifier 
which responds to the filtered signal to produce a channel 
output signal. The circuit includes a second filter with preset 
parameters which responds to the input signal to produce a 25 
characteristic signal. The circuit further includes a detector 
which responds to the characteristic signal to produce a 
control signal. The time constant of the detector is program- 
mable. The circuit also has a log circuit which responds to 
the detector to produce a log value representative of the 30 
control signal. The circuit also has a memory to store a 
preselected table of log values and gain values. The memory 
responds to the log circuit to select a gain value for each of 
the amplifiers in the channels as a function of the produced 
log value. Each of the amplifiers in the channels responds to 35 
the memory to separately vary the gain of the respective 
amplifier as a function of the respective selected gain value. 
The channel output signals are combined to produce an 
adaptively filtered output signal. The circuit is useful in a 
hearing aid. The circuit may include a microphone to ^ 
produce the input signal and a transducer to produce sound 
as a function of the adaptively filtered output signal. 

Yet still another form of the invention is an adaptive 
filtering circuit having a filter with variable parameters to 
receive an input signal in the audible frequency range and to 45 
produce an adaptively filtered signal. The circuit includes an 
amplifier to receive the adaptively filtered signal and to 
produce an adaptively filtered output signal. The circuit 
additionally has a detector to detect a characteristic of the 
input signal and a controller which responds to the detector 50 
to vary the parameters of the variable filter and to vary the 
gain of the amplifier as functions of the detected character- 
istic. 

Other objects and features will be in part apparent and in 
part pointed out hereinafter. 55 

BRIEF DESCRIPTION OF THE DRAWINGS 

FIG. 1 is a block diagram of an adaptive compressive gain 
circuit of the present invention. 

FIG. 2 is a block diagram of an adaptive compressive gain ^ 
circuit of the present invention wherein the compression 
ratio is programmable. 

FIG. 3 is a graph showing the input/output curves for the 
circuit of FIG. 2 using compression ratios ranging from 0-2. 

FIG. 4 shows a four channel level dependent spectral 65 
shaping circuit wherein the gain in each channel is adap- 
tively compressed using the circuit of FIG. 1. 
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FIG. 5 shows a four channel level dependent spectral 
shaping circuit wherein the gain in each channel is adap- 
tively compressed with a programmable compression ratio 
using the circuit of FIG. 2. 

FIG. 6 shows a four channel level dependant spectral 
shaping circuit wherein the gain in each channel is adap- 
tively varied with a level detector and a memory. 

FIG. 7 shows a level dependant spectral shaping circuit 
wherein the gain of the amplifier and the parameters of the 
filters are adaptively varied with a level detector and a 
memory. 

FIG. 8 shows a two channel version of the four channel 
circuit shown in FIG. 6. 

FIG. 9 shows the output curves for the control lines 
leading from the memory of FIG. 8 for controlling the 
amplifiers of FIG. 8. 

DETAILED DESCRIPTION OF PREFERRED 
EMBODIMENTS 

An adaptive filtering circuit of the present invention as it 
would be embodied in a hearing aid is generally indicated at 
reference number 10 in FIG. 1. Circuit 10 has an input 12 
which represents any conventional source of an input signal 
such as a microphone, signal processor, or the like. A 
microphone is shown by way of example in FIG. 1. Input 12 
also includes an analog to digital converter (not shown) for 
analog input signals if circuit 10 is implemented with digital 
components. Likewise, input 12 includes a digital to analog 
converter (not shown) for digital input signals if circuit 10 
is implemented with analog components. 

Input 12 is connected by a line 14 to an amplifier 16. The 
gain of amplifier 16 is controlled via a line 18 by an amplifier 
20. Amplifier 20 amplifies the value stored in a gain register 
24 according to a predetermined gain setting stored in a gain 
register 22 to produce an output signal for controlling the 
gain of amplifier 16. The output signal of amplifier 16 is 
connected by a line 28 to a limiter 26. Limiter 26 peak clips 
the output signal from amplifier 16 to provide an adaptively 
clipped and compressed output signal at output 30 in accor- 
dance with the invention, as more fully described below. The 
output 30, as with all of the output terminals identified in the 
remaining Figs, below, may be connected to further signal 
processors or to drive transducer 32 of a hearing aid. 

With respect to the remaining components in circuit 10, a 
comparator 32 monitors the output signal from amplifier 16 
via line 28. Comparator 32 compares the level of said output 
with a threshold level stored in a register 34 and outputs a 
comparison signal via a line 36 to a multiplexer 38. When 
the level of the output signal of amplifier 16 exceeds the 
threshold level stored in register 34, comparator 32 outputs 
a high signal via line 36. When the level of the output of 
amplifier 16 falls below the threshold level stored in register 
34, comparator 32 outputs a low signal via line 36. Multi- 
plexer 38 is also connected to a register 40 which stores a 
magnitude dp and to a register 42 which stores a magnitude 
dm. When multiplexer 38 receives a high signal via line 36, 
multiplexer 38 outputs a negative value corresponding to dm 
via a line 44. When multiplexer 38 receives a low signal via 
line 36, multiplexer 38 outputs a positive value correspond- 
ing to dp via line 44. An adder 46 is connected via line 44 
to multiplexer 38 and is connected via a line 54 to gain 
register 24. Adder 46 adds the value output by multiplexer 
38 to the value stored in gain register 24 and outputs the sum 
via a line 48 to update gain register 24. The circuit compo- 
nents for updating gain register 24 are enabled in response 
to a predetermined portion of a timing sequence produced by 
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a clock 50. Gain register 24 is connected by a line 52 to 
amplifier 20. The values stored in registers 22 and 24 thereby 
control the gain of amplifier 20. The output signal from 
amplifier 20 is connected to amplifier 16 for increasing the 
gain of amplifier 16 up to predetermined limit when the 5 
output level from amplifier 16 falls below the threshold level 
stored in register 34 and for decreasing the gain of amplifier 
16 when the output level from amplifier 16 rises above the 
threshold level stored in register 34. 

In one preferred embodiment, gain register 24 is a 12 bit 10 
register. The six most significant bits are connected by line 
52 to control the gain of amplifier 16. The six least signifi- 
cant bits are updated by adder 46 via line 48 during the 
enabling portion of the timing sequence from clock 50. The 
new values stored in the six least significant bits are passed 15 
back to adder 46 via line 54. Adder 46 updates the values by 
dm or dp under the control of multiplexer 38. When the six 
least significant bits overflow the first six bits of gain register 
24, a carry bit is applied to the seventh bit of gain register 
24, thereby incrementing the gain setting of amplifier 20 by 20 
one bit. Likewise, when the six least significant bits under- 
flow the first six bits of gain register 24, the gain setting of 
amplifier 20 is decremented one bit. Because the magnitudes 
dp and dm are stored in log units, the gain of amplifier 16 
is increased and decreased by a constant percentage. A one 25 
bit change in the six most significant bits gain register 24 
corresponds to a gain change in amplifier 16 of approxi- 
mately X A dB. Accordingly, the six most significant bits in 
gain register 24 provide a range of 32 decibels over which 
the conditions of adaptive limiting occur. 30 

The sizes of magnitudes dp and dm are small relative to 
the value corresponding to the six least significant bits in 
gain register 24. Accordingly, there must be a net contribu- 
tion of positive values corresponding to dp in order to raise 
the six least significant bits to their full count, thereby 35 
incrementing the next most significant bit in gain register 24. 
Likewise, there must be a net contribution of negative values 
corresponding to dm in order for the six least significant bits 
in gain register 24 to decrement the next most significant bit 
in gain register 24. The increments and decrements are 40 
applied as fractional values to gain register 24 which pro- 
vides an averaging process and reduces the variance of the 
mean of the gain of amplifier 16. Further, since a statistical 
average of the percent clipping is the objective, it is not 
necessary to examine each sample. If the signal from input 45 
12 is in digital form, clock 50 can operate at a frequency well 
below the sampling frequency of the input signal. This 
yields a smaller representative number of samples. For 
example, the sampling frequency of the input signal is 
divided by 512 in setting the frequency for clock 50 in FIG. 50 
1. 

In operation, circuit 10 adaptively adjusts the channel 
gain of amplifier 16 so that a constant percentage clipping by 
limiter 26 is achieved over a range of levels of the signal 55 
from input 12. Assuming the input signal follows a Lapla- 
dan distribution, it is modeled mathematically with the 
equation: 

p(x^ll(sqrt(2)R)e-^ a ^ a/R) ( 1 ) 60 

In equation (1). R represents the overall root means square 
signal level of speech. A variable F L is now defined as the 
fraction of speech samples that fall outside of the limits (L, 
-L). By integrating the Laplarian distribution over the 65 
intervals (-oo-L) and (L,-H»), the following equation for F^ 
is derived: 


C 2 ) 

As above, when a sample of the signal from input 12 is in 
the limit set by register 34, the gain setting in gain register 
24 is reduced by dm. When a sample of the signal from input 
12 is not in limit, the gain is increased by dp. Therefore, 
circuit 10 will adjust the gain of amplifier 16 until the 
following condition is met: 


(1 -F L )dp=F t dm (3) 

After adaption, the following relationships are found: 


dp=F L (dp+dm) (4) 

RAj=sqrt(2yin( 1-bdtn/dp) (5) 

Within the above equations, the ratio R/L represents a 
compression factor established by the ratio dm/dp. The 
percentage of samples that are clipped at ±L is given by: 


% clipping^* 100 (6) 

Table I gives typical values that have been found useful in 
a hearing aid Column three is the “headroom” in decibels 
between the root mean square signal value of the input signal 
and limiting. 


TABLE I 


dm/dp 

R/L 

R/L in dB 

% clipping 

0 

oo 

oo 

100 

U16 

23 3 

27.4 

94 

1/8 

12.0 

21.6 

89 

1/4 

6.3 

16.0 

80 

1/2 

3.5 

10.9 

67 

1 

2.04 

6.2 

50 

2 

1.29 

2.2 

33 

4 

.88 

-1.1 

20 

8 

,64 

-3.8 

11 

16 

.50 

—6.0 

6 

32 

.40 

-7.9 

3 


In the above equations, the relationship, R=Go, applies 
where G represents the gain prior to limiting and a repre- 
sents the root mean square speech signal level of the input 
signal. When the signal level a changes, circuit 10 will adapt 
to a new state such that R/L or Gc/L returns to the com- 
pression factor determined by dp and dm. The initial rate of 
adaption is determined from the following equation: 


dg/Jt^c(dp(l^ M ^W^y^m(e^^M aa ») (7) 

In equation (7), f c represents the clock rate of clock 50. The 
path followed by the gain (G) is determined by solving the 
following equations recursively: 


( 8 ) 

G^G+dG (9) 

Within equations (8) and (9), the attack and release times 
for circuit 10 are symmetric only for a compression factor 
(R/L) of 2.04. The attack time corresponds to the reduction 
of gain in response to an increase in signal o. Release time 
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coiTesponds to the increase in gain after the signal level a is 
reduced. For a compression factor setting of 12, the release 
time is much shorter than the attack time, for a compression 
factor setting of 0.64 and 0.50, the attack time is much 
shorter than the release time. These latter values are pref- 
erable for a hearing aid. 

As seen above, the rate of adaption depends on the 
magnitudes of dp and dm which are stored in registers 40 
and 42. These 6-bit registers have a range from 1/128 dB to 
63/128(dB). Therefore, at a sampling rate of 16 kHz from 
clock 50, the maximum slope of the adaptive gain function 
ranges from 125 d B/sec to 8000 dB/sec. For a step change 
of 32 dB, this corresponds to a typical range of time constant 
from 256 milliseconds to four milliseconds respectively. If 
dm is set to zero, the adaptive compression feature is 
disabled. 

FIG. 2 discloses a circuit 60 which has a number of 
common circuit elements with circuit 10 of FIG. 1. Such 
common elements have similar functions and have been 
marked with common reference numbers. In addition to 
circuit 10, however, circuit 60 of FIG. 2 provides for a 
programmable compression ratio. Circuit 60 has a gain 
control 66 which is connected to a register 62 by a line 64 
and to gain register 24 by a line 68. Register 62 stores a 
compression factor. Gain control 66 takes the value stored in 
gain register 24 to the power of the compression ratio stored 
in register 62 and outputs said power gain value via a line 70 
to an amplifier 72. Amplifier 72 combines the power gain 
value on line 70 with the gain value stared in a register 74 
to produce an output gain on a line 76. An amplifier 78 
receives the output gain via line 76 for controlling the gain 
of amplifier 78. Amplifier 78 amplifies the signal from input 
12 accordingly. The output signal from amplifier 78 is peak 
clipped by a limiter 80 and supplied as an output signal for 
circuit 60 at an output 82 in accordance with the invention. 

To summarize the operation of circuit 60, the input to 
limiter 80 is generated by amplifier 78 whose gain is 
programmably set as a power of the gain setting stored in 
gain register 24, while the input to comparator 32 continues 
to be generated as shown in circuit 10 of FIG. 1. Further, one 
of the many known functions other than the power function 
could be used for programmably setting the gain of amplifier 
78. 

The improvement in circuit 60 of FIG. 2 over circuit 10 
of FIG. 1 is seen in FIG. 3 which shows the input/output 
curves for compression ratios ranging from zero through 
two. The curve corresponding to a compression ratio of one 
is the single input/output curve provided by circuit 10 in 
FIG. 1. Circuit 60 of FIG. 2, however, is capable of 
producing all of the input/output curves shown in FIG. 3. 

In practice, circuit 10 of FIG. 1 or circuit 60 of FIG. 2 may 
be used in several parallel channels, each channel filtered to 
provide a different frequency response. Narrow band or 
broad band filters may be used to provide maximum flex- 
ibility in fitting the hearing aid to the patient’s hearing 
deficiency. Broad band filters are used if the patient prefers 
one hearing aid characteristic at low input signal levels and 
another characteristic at high input signal levels. Broad band 
filters can also provide different spectral shaping depending 
on background noise level. The channels are preferably 
constructed in accordance with the filter/limit/filter structure 
disclosed in U.S. Pat No. 5,111,419 (hereinafter “the ’419 
patent”) and incorporated herein by reference. 

FIG. 4 shows a 4-channel filter/limit/filter structure for 
circuit 10 of FIG. 1. While many types of filters can be used 
for the channel filters of FIG. 4 and the other Figs., FIR 
filters are the most desirable. Each of the filters FI, F2, F3 
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and F4 in FIG. 4 are symmetric FIR filters which are equal 
in length within each channel. This greatly reduces phase 
distortion in the channel output signals, even at band edges. 
The use of symmetric filters further requires only about 
5 one-half as many registers to store the filter co-efficients for 
a channel, thus allowing a simpler circuit implementation 
and lower power consumption. Each channel response can 
be programmed to be a band pass filter which is contiguous 
with adjacent channels. Therefore, filters F1-F4 constitute 
10 variable filters with separately varying filter parameters. In 
this mode, filters FI through F4 have preset filter parameters 
for selectively passing input 12 ova: a predetermined range 
of audible frequencies while substantially attenuating any of 
input 12 not occurring in the predetermined range. Likewise, 
15 channel filters FI through F4 can be programmed to be wide 
band to produce overlapping channels. In this mode, filters 
FI through F4 have preset filter parameters for selectively 
altering input 12 over substantially all of the audible fre- 
quency range. Various combinations of these two cases are 
20 also possible. Since the filter coeffi dents are arbitrarily 
specified, in-band shaping is applied to the band-pass filters 
to achieve smoothly varying frequency gain functions across 
all four channels. An output 102 of a circuit 100 in FIG. 4 
provides an adaptively compressed and filtered output signal 
25 comprising the sum of the filtered signals at outputs 30 in 
each of the four channels identified by filters FI through F4. 

FIG. 5 shows a four channel filter/liniit/filtea* circuit 110 
wherein each channel incorporates circuit 60 of FIG. 2. An 
output 112 in FIG. 5 provides a programmably compressed 
30 and filtered output signal comprising the sum of the filtered 
signals at outputs 82 in each of the four channels identified 
by filters FI through F4. 

The purpose of the adaptive gain factor in each channel of 
the circuitry of FIGS. 4 and 5 is to maintain a specified 
35 constant level of envelope compression over a range of 
inputs. By using adaptive compressive gain, the input/output 
function for each channel is programmed to include a linear 
range for which the signal envelope is unchanged, a higher 
input range over which the signal envelope is compressed by 
40 a specified amount, and the highest input range over which 
envelope compression increases as the input level increases. 
This adaptive compressive gain feature adds an important 
degree of control over mapping a widely dynamic input 
signal into the reduced auditory range of the impaired ear. 
45 The design of adaptive compressive gain circuitry for a 
hearing aid presents a number of considerations, such as the 
wide dynamic range, noise pattern and bandwidth found in 
naturally occurring sounds. Input sounds present at the 
microphone of a hearing aid vary from quiet sounds (around 
50 30 dB SPL) to those of a quiet office area (around 50 dB 
SPL) to much more intense transient sounds that may reach 
100 dB SPL or more. Sound levels for speech vary from a 
casual vocal effort of a talker at three feet distance (55 dB 
SPL) to that Of a talker’s own voice which is much closer 
55 to the microphone (80 dB SPL). Therefore, long term 
averages of speech levels present at the microphone vary by 
25 dB or more depending on the talker, the distance to the 
talker, the orientation of the talker and other factors. Speech 
is also dynamic and varies over the short term. Phoneme 
60 intensities vary from those of vowels, which are the loudest 
sounds, to unvoiced fricatives, which are 12 dB or so less 
intense, to stops, which are another 18 dB or so less intense. 
This adds an additional 30 dB of dynamic range required for 
speaking. Including both long-term and short-term variation, 
65 the overall dynamic range required for speech is about 55 
dB. If a talker whispers or is at a distance much greater than 
three feet, then the dynamic range will be even greater. 
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Electronic circuit noise and processing noise limit the 
quietest sounds that can be processed. A conventional hear- 
ing aid microphone has an equivalent input noise figure of 
25 dB SPL, which is close to the estimated 20 dB noise 
figure of a normal ear. If this noise figure is used as a lower 5 
bound on the input dynamic range and 120 dB SPL is used 
as an upper bound, the input dynamic range of good hearing 
aid system is about 100 dB. Because the microphone will 
begin to saturate at 90 to 100 dB SPL, a lesser dynamic 
range of 75 dB is workable. 10 

Signal bandwidth is another design consideration. 
Although it is possible to communicate over a system with 
a bandwidth of 3 kHz or less and it has been determined that 
3 kHz carries most of the speech information, hearing aids 
with greater bandwidth result in better articulation scores. 15 
Skinner, M. W. and Miller, J. D., Amplification Bandwidth 
and Intelligibility of Speech in Quiet and Noise for Listeners 
with Sensorineural Hearing Loss , 22:253-79 Audiology 
(1983). Accordingly, the embodiment disclosed in FIG. 1 
has a 6 kHz upper frequency cut-off. 20 

The filter structure is another design consideration. The 
filters must achieve a high degree of versatility in program- 
ming bandwidth and spectral shaping to accommodate a 
wide range of hearing impairments. Further, it is desirable to 
use shorter filters to reduce circuit complexity and power 25 
consumption. It is also desirable to be able to increase filter 
gain for frequencies of reduced hearing sensitivity in order 
to improve signal audibility. However, studies have shown 
that a balance must be maintained between gain at low 
frequencies and gain at high frequencies. It is recommended 30 
that the gain difference across frequency should be no 
greater than 30 dB. Skinner, M. W., Hearing Aid Evaluation, 
Prentice Hall (1988). Further, psychometric functions often 
used to calculate a “prescriptive” filter characteristic are 
generally smooth, slowly changing functions of frequency 35 
that do not require a high degree of frequency resolution to 
fit. 

Within the above considerations, it is preferable to use 
FIR filters with transition bands of 1000 Hz and out of band 
rejection of 40 dB. The required filter length is determined 40 
from the equation: 

/p=((-201og 10 (c)-7.95y(14.36TB/f,))+l (10) 

In equation (10), L represents the number of filter taps, a 45 
represents the maximum error in achieving a target filter 
characteristic, -20 log 10 (a) represents the out of band rejec- 
tion in decimals, TB represents the transition band, and f f is 
the sampling rate. See Kaiser, Nonrecursive Filter Design 
Using the I 0 -SINH Window Function. Proc IEEE Int 50 
Symposium on Circuits and Systems (1974). For an out of 
band rejection figure of 35 dB with a transition band of 1000 
Hz and a sampling frequency of 16 kHz, the filter must be 
approximately 31 taps long. If a lower out of band rejection 
of 30 dB is acceptable, the filter length is reduced to 25 taps. 55 
This range of filter lengths is consistent with the modest 
filter structure and low power limitations of a hearing aid. 

All of the circuits shown in FIGS. 1 through 9 use log 
encoded data. See the ’419 patent. Log encoding is similar 
to u-law and A-law encoding used in Codecs and has the 60 
same advantages of extending the dynamic range, thereby 
making it possible to reduce the noise floor of the system as 
compared to linear encoding. Log encoding offers the addi- 
tional advantage that arithmetic operations are performed 
directly on the log encoded data. The log encoded data are 65 
represented in the hearing aid as a sign and magnitude as 
follows: 


^gn(y)Iog(lyiyiog(5) (II) 

In equation (11), B represents the log base, which is positive 
and close to but less than unity, x represents the log value 
and y represents the equivalent linear value. A reciprocal 
relation for y as a function of x follows: 


y=sgn(x)BP* (12) 

If x is represented as sign and an 8-bit magnitude and the log 
base is 0.941, the range of y is ±1 to ±1.8xl0“ 7 . This 
corresponds to a dynamic range of 134 dB. The general 
expression for dynamic range as a function of the log base 
B and the number of bits used to represent the log magnitude 
Value N follows: 


dynamic range (dB)=201og 10 (B (2 * -1) ) (13) 

An advantage of log encoding over u-law encoding is that 
arithmetic operations are performed directly on the encoded 
signal without conversion to another form. The basic FIR 
filter equation, y(n)=Ia I x(n-i), is implemented recursively 
as a succession of add and table lookup operations in the log 
domain. Multiplication is accomplished by adding the mag- 
nitude of the operands and determining the sign of the result 
The sign of the result is a simple exclusive-or operation on 
the sign bits of the operands. Addition (and subtraction) are 
accomplished in the log domain by operations of 
subtraction, table lookup, and addition. Therefore, the 
sequence of operations required to form the partial sum of 
products of the FIR filter in the log domain are addition, 
subtraction, table lookup, and addition. 

Addition and subtraction in the log domain are imple- 
mented by using a table lookup approach with a sparsely 
populated set of tables T+ and T_ stored in a memory (not 
shown). Adding two values, x and y, is accomplished by 
taking the ratio of the smaller magnitude to the larger and 
adding the value from the log table T + to the smaller. 
Subtraction is similar and uses the log table T_. Since x and 
y are in log units, the ratio, ly/xl (or Ix/yl), which is used to 
access the table value, is obtained by subtracting Ixl from lyl 
(or vice-versa). The choice of which of the tables, T + or T_, 
to use is determined by an exclusive-or operation on the sign 
bits of x and y. Whether the table value is added to x or to 
y is determined by subtracting Ixl from lyl and testing the 
sign bit of the result. 

Arithmetic roundoff errors in using log values for multi- 
plication are not significant With an 8 -bit representation, the 
log magnitude values are restricted to the range 0 to 255. 
Zero corresponds to the laigest possible signal value and 255 
to the smallest possible signal value. Log values less than 
zero cannot occur. Therefore, overflow can only occur for 
the smallest signal values. Product log values greater than 
255 are truncated to 255. This corresponds to a smallest 
signal value (255 LLPs) that is 134 dB smaller than the 
maximum signal value. Therefore, if the system is scaled by 
setting the amplifier gains so that 0 LU corresponds to 130 
dB SPL, the truncation errors of multiplication (255 LU) 
correspond to -134 dB relative to the maximum possible 
signal value (0 LU). In absolute terms, this provides a -4 dB 
SPL or -43 dB SPL spectrum level, which is well below the 
normal hearing threshold. 

Roundoff errors of addition and subtraction are much 
more significant. For example, adding two numbers of equal 
magnitude together results in a table lookup error of 2.4%. 
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Conversely, adding two values that differ by three carders of 
magnitude results in an error of 0. 1%. The two tables, T + and 
T_, are sparsely populated. For a log base of 0.941 and table 
values represented as an 8-bit magnitude, each table contains 
57 nonzero values. If it is assumed that the errors are 
uniformly distributed (that each table value is used equally 
often on the average), then the overall average error asso- 
ciated with table roundoff is 1.01% forT+ and 1.02% for T_. 

Table errors are reduced by using a log base closer to 
unity and a greater number of bits to represent log magni- 
tude. However, the size of the table grows and quickly 
becomes impractical to implement A compromise solution 
for reducing error is to increase the precision of the table 
entries without increasing the table size. The number of 
nonzero entries increases somewhat. Therefore, in imple- 
menting the table lookup in the digital processor, two 
additional bits of precision are added to the table values. 
This is equivalent to using a temporary log base which is the 
fourth root of 0.941 (0.985) for calculating the FIR filter 
summation. The change in log base increases the number of 
nonzero entries in each of the tables by 22, but reduces the 
average error by a factor of four. This increases the output 
SNR of a given filter by 12 dB. TheT + andT_ tables are still 
sparsely populated and implemented efficiently in VLSI 
form. 

In calculating the FIR equation, the table lookup opera- 
tion is applied recursively N-l times, where N is the order 
of the filter. Therefore, the total error that results is greater 
than the average table roundoff error and a function of filter 
order. If it is assumed that the errors are uniformly distrib- 
uted and that the input signal is white, the expression for 
signal to roundoff noise ratio follows: 

€//o/=€ 2 (c 1 2 +2c 2 2 + . . . +<W-1)c n 2)/(c i 2 +c 2 2 + . . . + c N 2 ) (14) 

In equation (14) e y 2 represents the noise variance at the 
output of the filter, o 2 represents the signal variance at the 
output of the filter, and e represents the average percent table 
error. Accordingly, the filter noise is dependent on die table 
lookup error, the magnitude of the filter coefficients, and the 
order of summation. The coefficient used first introduces an 
error that is multiplied by N-l. The coefficient used second 
introduces an error that is multiplied by N-2 and so on. 
Since the error is proportional to coefficient magnitude and 
order of summation, it is possible to minimize the overall 
error by ordering the smallest coefficients earliest in the 
calculation. Since the end tap values for symmetric filters are 
generally smaller than the center tap value, the error was 
further reduced by calculating partial sums using coefficients 
from the outside toward the inside. 

In FIGS. 4 and 5, FIR filters FI through F4 represent 
channel filters which are divided into two cascaded parts. 
Limiters 26 and 80 are implemented as part of the log 
multiply operation. is a gain factor that, in the log 
domain, is subtracted from the samples at the output of the 
first FIR filter. If the sum of the magnitudes is less than zero 
(maximum signal value), it is clipped to zero. G 2 represents 
an attenuation factor that is added (in the log domain) to the 
clipped samples. G 2 is used to set the maximum output level 
of the channel. 

Log quantizing noise is a constant percentage of signal 
level except for low input levels that are near the smallest 
quantizing steps of the encoder. Assuming a Laplacian 
signal distribution, the signal to quantizing noise ratio is 
given by the following equation: 
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For a log base of 0.941, the SNR is 35 dB. The quantizing 
noise is white and, since equation (15) represents the total 
noise energy over a bandwidth of 8 kHz, the spectrum level 
is 39 dB less or 74 dB smaller than the signal level. The ear 
5 inherently masks the quantizing noise at this spectrum level. 
Schroeder, et al., Optimizing Digital Speech Coders by 
Exploiting Masking Properties of the Human Ear, Vol. 66(6) 
J.Acous.Soc.Am. pp.1647-52 (December 1979). Thus, log 
encoding is ideally suited for auditory signal processing. It 
i0 provides a wide dynamic range that encompasses the range 
of levels of naturally occurring signals, provides sufficient 
SNR that is consistent with the limitation of the ear to 
resolve small signals in the presence of large signals, and 
provides a significant savings with regard to hardware. 

The goal of the fitting system is to program the digital 
15 hearing aid to achieve a target real-ear gain. The real-ear 
gain is the difference between the real-ear-aided-response 
(REAR) and the real-ear-unaided-response (REUR) as mea- 
sured with and without the hearing aid on the patient. It is 
assumed that the target gain is specified by the audiologist 
20 or calculated from one of a variety of prescriptive formulae 
chosen by the audiologist that is based on audiometric 
measures. There is not a general consensus about which 
prescription is best However, prescriptive formulae are 
generally quite simple and easy to implement on a small host 
25 computer. Various prescriptive fitting methods are discussed 
in Chapter 6 of Skinner, M. W., Hearing Aid Evaluation, 
Prentice Hall (1988). 

Assuming that a target real-ear gain has been specified, 
the following strategy is used to automatically fit the four 
30 channel digital hearing aid where each channel is pro- 
grammed as a band pass filter which is contiguous with 
adjacent channels. The real-ear measurement system dis- 
closed in U.S. Pat. No. 4,548,082 (hereinafter “the ’082 
patent”) and incorporated herein by reference is used. First, 
35 the patient’s REUR is measured to determine the patient’s 
normal, unoccluded ear canal resonance. Then the hearing 
aid is placed on the patient. Second, the receiver and 
earmold are calibrated. This is done by setting G2 of each 
channel to maximum attenuation (-134 dB) and turning on 
40 the noise generator of the adaptive feedback equalization 
circuit shown in the ’082 patent. This drives the output of the 
hearing aid with a flat-spectrum-level, pseudorandom noise 
sequence. The noise in the ear canal is then deconvolved 
with the pseudorandom sequence to obtain a measure of the 
45 output transfer characteristic (H r ) of the hearing aid. Third, 
the microphone is calibrated. This is done by setting the 
channels to a flat nominal gain of 20 dB. The cross- 
correlation of the sound in the ear canal with the reference 
sound then represents the overall transfer characteristic of 
50 the hearing aid and includes the occlusion of sound by the 
earmold. The microphone calibration (Hm) is computed by 
subtracting H r from this measurement. Last, the channel 
gain functions are specified and filter coefficients are com- 
puted using a window design method. See Rabiner and 
55 Schafer, Digital Processing of Speech Signals , Prentice Hall 
(1978). The coefficients are then downloaded in bit- serial 
order to the coefficient registers of the processor. The 
coefficient registers are connected together as a single serial 
shift register for the purpose of downloading and uploading 
60 values. 

The channel gains are derived as follows. The acoustic 
gain for each channel of the hearing aid is given by: 

65 Gai n=H m +H r +H n +G ln +G 2 „ (16) 

The filter shape for each channel is determined by setting the 
Gain in equation (16) to the desired real-ear gain plus the 


5A r /?(d®)=101og, (J (12)-201og lo (l/n(n)l) 


(15) 
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open-ear resonance. Since G ln and G 2n are gain constants 
for the channel and independent of frequency, they do not 
enter into the calculation at this point. The normalized filter 
characteristics is determined from the following equation. 


Hn=0.5 (Desired Real-ear gain+open ear cal-H^-H^+O^) (17) 

H m and H r represent the microphone and receiver calibration 
measures, respectively, that were determined for the patient 
with the real ear measurement system and G„ represents a 
normalization gain factor for the filter that is included in the 
computation of G ln and G 2n . H m and H r include the trans- 
ducer transfer characteristics in addition to the frequency 
response of the amplifier and any signal conditioning filters. 
Once H„ is determined, the maximum output of each 
channel, which is limited by L, are represented by G^ as 
follows: 


G2n-MPO n -L-avg(H w +H ( ,)-G /> (18) 

In equation (18), the “avg” operator gives the average of 
filter gain and receiver sensitivity at filter design frequencies 
within the channel. L represents a fixed level for all channels 
such that signals falling outside the range ±L are peak- 
clipped at ±L. G„ represents the filter normalization gain, 
and MPO„ represents the target maximum power output 
Overall gain is then established by setting G lrt as follows: 


G in =2 G n -G^ (19) 

G„ represents the gain normalization factor of the filters that 
were designed to provide the desired linear gain for the 
channel. 

By using the above approach, target gains typically are 
realized to within 3 dB over a frequency range of from 100 
Hz to 6000 Hz. The error between the step-wise approxi- 
mation to the MPO function and the target MPO function is 
also small and is minimized by choosing appropriate cross- 
over frequencies for the four channels. 

Because the channel filters are arbitrarily specified, an 
alternative fitting strategy is to prescribe different frequency- 
gain shapes for signals of different levels. By choosing 
appropriate limit levels in each channel, a transition from the 
characteristics of one channel to the characteristics of the 
next channel will occur automatically as a function of signal 
level. For example, a transparent or low-gain function is 
used for high-level signals and a higher-gain function is used 
for low-level signals. The adaptive gain feature in each 
channel provides a means for controlling die transition from 
one channel characteristic to the next. Because of recruit- 
ment and the way the impaired ear works, the gain functions 
are generally ordered from highest gain for soft sounds to the 
lowest gain for loud sounds. With respect to circuit 100 of 
FIG. 4, this is accomplished by setting G1 in gain register 22 
very high for the channel with the highest gain for die soft 
sounds. The settings for G1 in gain registers 22 of the next 
succeeding channels are sequentially decreased, with the G1 
setting being unity in the last channel which channel has the 
lowest gain for loud sounds. A similar strategy is used for 
circuit 110 of FIG. 5, except that G1 must be set in both gain 
registers 22 and 74. In this way, the channel gain settings in 
circuits 100 and 110 of FIGS. 4 and 5 are sequentially 
modified from first to last as a function of the level of input 
12 . 

The fitting method is similar to that described above for 
the four-channel fitting strategy. Real-ear measurements are 
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used to calibrate the ear, receiver, and microphone. 
However, the filters are designed differentiy. One of the 
channels is set to the lowest gain function and highest ACG 
threshold. Another channel is set to a higher-gain function, 
5 which adds to the lower-gain function and dominates the 
spectral shaping at signal levels below a lower ACG thresh- 
old setting for that channel. The remaining two channels are 
set to provide further gain contributions at successively 
lower signal levels. Since the channel filters are symmetric 
io and equal length, the gains will add in the linear sense. Two 
channels set to the same gain function will provide 6 dB 
more gain than either channel alone. Therefore, the channels 
filters are designed as follows: 
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H|=Mt D t 

(20) 


log jo (lO^-lO^ 1 ) 

(21) 


H 3 =44 log jo (lO^MO^-KP 1 ) 

(22) 

20 

log 10 (lO^-lO^-lO^-lO^ 1 ) 

(23) 


where: D l <D 2 <D 3 <D 4 . D„ represents the filter design target 
in decibels that gives the desired insertion gain for the 
hearing aid and is derived from the desired gains specified 
25 by the audiologist and corrected for ear canal resonance and 
receiver and microphone calibrations as described previ- 
ously for the four-channel fit. The factor, Vi, in the above 
expressions takes into account that each channel has two 
filters in cascade. 

30 The processor described above has been implemented in 
custom VLSI form. When operated at 5 volts and at a 
16-kHz sampling rate, it consumes 4.6 mA. When operated 
at 3 volts and at the same sampling rate, it consumes 2.8 mA. 
When the circuit is implemented in a low- voltage form, it is 
35 expected to consume less than 1 mA when operated from a 
hearing aid battery. The processor has been incorporated into 
a bench-top prototype version of the digital hearing aid. 
Results of fitting hearing-impaired subjects with this system 
suggest that prescriptive frequency gain functions are 
40 achieved within 3 dB accuracy at the same time that the 
desired MPO frequency function is achieved within 5 dB or 
so of accuracy. 

For those applications that do not afford the computa- 
tional resources required to implement the circuitry of FIGS. 
45 1 through 5, the simplified circuitry of FIGS. 6 through 9 is 
used. In FIG. 6, a circuit 120 includes an input 12 which 
represents any conventional source of an input signal such as 
a microphone, signal processor, or the like. A microphone is 
shown by way of example. Input 12 also includes an analog 
50 to digital converter (not shown) for analog input signals if 
circuit 120 is implemented with digital components. 
Likewise, input 12 includes a digital to analog converter (not 
shown) for digital input signals if circuit 120 is implemented 
with analog components. 

55 Input 12 is connected to a group of filters FI through F4 
and a filter SI over a line 122. Filters FI through F4 provide 
separate channels with filter parameters preset as described 
above for the multichannel circuits of FIGS. 4 and 5. Each 
of filters FI, F2, F3 and F4 outputs an adaptively filtered 
60 signal via a line 124, 126, 128 and 130 which is amplified 
by a respective amplifier 132, 134, 136 and 138. Amplifiers 
132 through 138 each provide a channel output signal which 
is combined by a line 140 to provide an adaptively filtered 
signal at an output 142 of circuit 120. 

65 Filter SI has parameters which are set to extract relevant 
signal characteristics present in the input signal. The output 
of filter SI is received by an envelope detector 144 which 
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detects said characteristics. Detector 144 preferably has a 
programmable time constant for varying the relevant period 
of detection. When detector 144 is implemented in analog 
form. it includes a full wave rectifier and a resistor/capaeitor 
circuit (not shown). The resistor, the capacitor, or both, are 
variable for programming the time constant of detector 144. 
When detector 144 is implemented in digital form, it 
includes an exponentially shaped filter with a programmable 
time constant. In either event, the “on” time constant is 
shorter than the relatively long “off” time constant to prevent 
excessively loud sounds from existing in the output signal 
for extended periods. 

The output of detector 144 is a control signal which is 
transformed to log encoded data by a log transformer 146 
using standard techniques and as more fully described 
above. The log encoded data represents the extracted signal 
characteristics present in the signal at input 12. A memoiy 
148 stores a table of signal characteristic values and related 
amplifier gain values in log form. Memory 148 receives the 
log encoded data from log transformer 146 and, in response 
thereto, recalls a gain value for each of amplifiers 132, 134, 
136 and 138 as a function of the log value produced by log 
transformer 146. Memory 148 outputs the gain values via a 
set of lines 150, 152, 154 and 156 to amplifiers 132, 134, 136 
and 138 for setting the gains of the amplifiers as a function 
of the gain values. Arbitrary overall gain control functions 
and blending of signals from each signal processing channel 
are implemented by changing the entries in memory 148. 

In use, circuit 120 of FIG. 6 may include a greater or 
lesser number of filtered channels than the four shown in 
FIG. 6. Further, circuit 120 may include additional filters, 
detectors and log transformers corresponding to filter detec- 
tor 144 and log transformer 146 for providing additional 
input signal characteristics to memory 148. Still further, any 
or all of the filtered signals in lines 124, 126, 128 or 130 
could be used by a detectors), such as detector 144, for 
detecting an input signal characteristic for use by memory 
148. 

FIG. 7 includes input 12 for supplying an input signal to 
a circuit 160. Input 12 is connected to a variable filter 162 
and to a filter SI via a line 164. Variable filter 162 provides 
an adaptively filtered signal which is amplified by an ampli- 
fier 166. A limiter 168 peak clips the adaptively filtered 
output signal of amplifier 166 to produce a limited output 
signal which is filtered by a variable filter 170. The adap- 
tively filtered and clipped output signal of variable filter 170 
is provided at output 171 of circuit 160. 

Filter SI, a detector 144 and a log transformer 146 in FIG. 
7 perform similar functions to the like numbered compo- 
nents found in FIG. 6. A memory 162 stores a table of signal 
characteristic values, related filter parameters, and related 
amplifier gain values in log form. Memory 162 responds to 
the output from log transformer 146 by recalling filter 
parameters and an amplifier gain value as functions of the 
log value produced by log transformer 146. Memory 162 
outputs the recalled filter parameters via a line 172 and the 
recalled gain value via a line 174. Filters 162 and 170 
receive said filter parameters via line 172 for setting the 
parameters of filters 162 and 170. Amplifier 166 receives 
said gain value via line 174 for setting the gain of amplifier 
166. The filter coefficients are stored in memory 162 in 
sequential order of input signal level to control the selection 
of filter coefficients as a function of input level. Filters 162 
and 170 are preferably FIR filters of the same construction 
and length and are set to the same parameters by memory 
162. In operation, the circuit 160 is also used by taking the 
output signal from the output of amplifier 166 to achieve 
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desirable results. Limiter 168 and variable filter 170 are 
shown, however, to illustrate the filter/Hmit/filter structure 
disclosed in the 419 patent in combination with the pair of 
variable filters 162 and 170. 

5 With a suitable choice of filter coefficients, a variety of 
level dependent filtering is achieved. When memory 162 is 
a random-access memory, the filter coefficients are tailored 
to the patient’s hearing impairment and stored in the 
memory from a host computer during the fitting session. The 
10 use of tiie host computer is more fully explained in the ’082 
patent. 

A two channel version of circuit 120 in FIG. 6 is shown 
in FIG. 8 as circuit 180. Like components of the circuits in 
FIGS. 6 and 8 are identified with the same reference 
is numerals. A host computer (such as the host computer 
disclosed in the ’082 patent) is used for calculating the FI 
and F2 filter coefficients for various spectral shaping, for 
calculating entries in memory 148 for various gain functions 
and blending functions, and for down-loading the values to 
20 the hearing aid. 

The gain function for each channel is shown in FIG. 9. A 
segment “a” of a curve G1 provides a “voice switch” 
characteristic at low signal levels. A segment “b” provides a 
linear gain characteristic with a spectral characteristic deter- 
25 mined by filter FI in FIG. 8. A segment “c” and “d” provide 
a transition between the characteristics of filters FI and F2. 
A segment “e” represents a linear gain characteristic with a 
spectral characteristic determined by filter F2. Lastly, seg- 
ment “f * corresponds to a region over which the level of 
30 output 142 is constant and independent of the level of input 
12 . 

The G1 and G2 functions are stored in a random access 
memory such as memoiy 148 in FIG. 8. The data stored in 
memory 148 is based on the specific hearing impairment of 
35 the patient The data is derived from an appropriate algo- 
rithm in the host computer and down-loaded to the hearing 
aid model during the fitting session. The coefficients for 
filters FI and F2 are derived from the patients residual 
hearing characteristic as follows: Filter F2, which deter- 
40 mines the spectral shaping for loud sounds, is designed to 
match the patients UCL function. Filter FI, which deter- 
mines the spectral shaping for softer sounds, is designed to 
match the patients MCL or threshold functions. One of a 
number of suitable filter design methods are used to compute 
45 the filter coefficient values that correspond to the desired 
spectral characteristic. 

A Kaiser window filter design method is preferable for 
this application. Once the desired spectral shape is 
established, the filter coefficients are determined from the 
50 following equation: 

( 24 ) 

In equation (24), C n represents the n’th filter coefficient. A* 
55 represents samples of the desired spectral shape at frequen- 
cies f*. f, represents the sampling frequency and W n repre- 
sents samples of the Kaiser Window. The spectral sample 
points. A*, are spaced at frequencies, f ft , which are separated 
by the 6 dB bandwidth of the window, W„, so that a 
60 relatively smooth filter characteristic results that passes 
through each of the sample values. The frequency resolution 
and maximum slope of the frequency response of the 
resulting filter is determined by the number of coefficients or 
length of the filter. In the implementation shown in FIG. 8, 
65 filters FI and F2 have a length of 30 taps which, at a 
sampling rate of 12.5 kHz, gives a frequency resolution of 
about 700 Hz and a maximum spectral slope of 0.04 dB/Hz. 
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Circuit 180 of FIG. 8 simplifies the fitting process. 
Through a suitable interactive display on a host computer 
(not shown), each spectral sample value A k is independently 
selected. While wearing a hearing aid which includes circuit 
180 in a sound field, such as speech weighted noise at a 
given level, the patient adjusts each sample value A* to a 
preferred setting for listening. The patient also adjusts filter 
F2 to a preferred shape that is comfortable only for loud 
sounds. 

Appendix A contains a program written for a Macintosh 
host computer for setting channel gain and limit values in a 
four channel contiguous band hearing aid. The filter coef- 
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ficients for the bands are read from a file stored on the disk 
in the Macintosh computer. An interactive graphics display 
is used to adjust the filter and gain values. 

In view of the above, it will be seen that the several 
5 objects of the invention are achieved and other advantageou s 
results attained. 

As various changes could be made in the above construc- 
tions without departing from the scope of the invention, it is 
io intended that all matter contained in the above description or 
shown in the accompanying drawings shall be interpreted as 
illustrative and not in a limiting sense. 
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APPENDIX A 


Program WDHA 


Wearable Digital Hearing Rid Control Program 0. 1.0 

Central Institute For The Deaf 
818 South Euclid Rue. 

St. Louis Mo. 63110 
Phone: 314-652-3200 

Supported in part by: 

The Rehabilitation Research Rnd Deuelopment Seruice 
Dept, of Medicine and Surgery: Ueterans Administration 



General Overview 

A program entitled "WDHA M has been written for the Macintosh 
personal computer. When a wearable digital hearing aid is attached 
to the Macintosh's SCSI bus peripheral interface, the user of the 
WDHA program can alter the operation of the hearing aid via an easy 
to use Macintosh style user interface. 

Using the WDHA Program 

Starting The Program 

Upon starting the program, the Macintosh interrogates the 
hearing aid to determine which program it is running. If the hearing 
aid responds appropriately, a menu containing the options which 
apply to that particular program appears in the menu bar. If no 
response is received from the hearing aid, the menu entitled "WDHA 
Disconnected" appears in the menu bar, as follows: 


r * File IDOHfi Disconnected 



Should this menu appear, this indicates that there is some 
problem with the hearing aid. The source of this problem could be 
that the hearing aid is truly disconnected, that it is simply turned off, 
or that the hearing aid battery is dead. Upon correcting the problem. 


35 
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choose the "New WDHA Program" menu entry to activate the proper 
menu for the hearing aid. 

The Aid Parameters Window 

The four channel hearing aid programs have the titles Aid 12 
through Aid 14. Choosing the "Aid Parameters” menu entry will 
cause the aid parameters window to be displayed, as follows: 


□ • — r — - Hid Parameters - 


iijil |i?§§£ Wife 

Channel 

Gain 

Limit SPL 

H Hearing Aid On 

r m m 

1 

26 

105 

H Input Attenuation 

Blip 

2 

30 

106 

□ Output Attenuation 

BB K] 31 |p 




it#.5r 

HS li 

3 

32 

110 

HC1 * 0 dB (Rial - Zwislocki) 

f || 1 L ViJ : ft 




HC2 * 3 dB (Real - Zwislocki) 


4 

40 

115 

HC3 * 0 dB (Real - ZwislockO 


12 3 4 HC4 a 4 (RmI “ Zwislocki) 

Channel 


The bar graph and chart depict the current settings of the gains 
and limits for each channel of the hearing aid. A gain or limit setting 
can be changed by dragging the appropriate bar up or down with the 
mouse. The selected bar will blink when it is activated, and can be 
moved until the mouse is released, at which point the hearing aid is 
updated with the new values. 

The control buttons indicate whether the hearing aid is on or 
off (i.e. whether the hearing aid program is running), and whether 
the input or output attenuators are switched on or off. Any of these 
settings can be changed simply by clicking on the appropriate 
buttons. 

Ear Module Calibration 

The File menu has an option called "Calibrate Ear Module" 
which should be used whenever the program is started or an ear 
module is inserted (or re-inserted) in a patient's ear. Proper use of 
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this option insures that the gains actually generated by the hearing 
aid are as close to the gains indicated by the program as possible. 

The lower right hand comer of the Aid Parameters window 
displays the results of the most recent ear module calibration, 
including the name of the calibration file and the four He values, 
where He is the difference between the real ear pressure measured 
in the ear canal and the standard pressure measured on a Zwislocki 
at the center frequency of each channel. After choosing this option 
the user must open the file containing the ear module coefficients, by 
double clicking on the file’s name, via a standard Macintosh dialog 
box: 


3 EarModule Calibrations | 


□ ite.3! 

a 

3 Ear Module 

□ ite.3r 

H 


D ite,4l 

1 

■urn 

□ ite.4r 

SR 

f Drii;e ] 

D ite.51 



□ ite.5r 

r 


□ it e.6l 


[ Open t 1 

D ite.6r 


% nr* 

M\ 1 II III ■ 1 1 II 

D 11 e/7! 

a 

[ Cancel ] 


The program will then play a series of four tones in the 
patient's ear, using the power measurement to determine the real 
pressure in the ear canal. 

The file containing the ear module coefficients should be 
created with a text editor and saved as a text-only file. The file 
contains all the H values for a given ear module, seperated by tabs, 
spaces, or carriage returns. It should begin with the four He values, 
followed by the Hr values, then He, and then Hp. The values entered 
for the He values can be arbitrary, since the program calculates them 
and stores them into the file. An ear module file as you would enter 
it might look as follows: 


-100 -85 -90 -84 121 116 127 120 
0 
0 
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0 

0 

-124 -121 -134 -143 

Here the first row contains both the four He values and the 
four Hr values. Following this are four zeros (since the He values are 
unknown). The sixth row contains the Hp values. Note that values 
are arbitrarily seperated by tabs, spaces, or carriage returns. 

After doing an ear module calibration with the program, the 
new He values are displayed in the Aid Settings window, and also 
written to the same file, with the data re-formatted into a seperate 
row for each H value, as follows: 

-100 -85 -90 -84 

121 116 127 120 

-5 -4 -10 0 

-124 -121 -134 -143 

The Tone Parameters Window 

The four channel programs also have the ability to play pure 
tones for audiometric purposes. The Tone Parameters window is 
available to activate these functions. Choosing the "Tone Parameters ’ 1 
menu entry will cause the Tone Parameters window to be displayed, 
as follows: 


f □ - j Tone Parameters-—- ^ --1 

Tone burst court? 

3 

0 Hearing Rid On 

Rise time sample count? 

309 

□ Input Rttenuation 

Signal on sample count? 

2455 

□ Output Rttenuation 

Fall time sample count? 

309 

0 Field Mike 

Signal off sample count? 

3069 

Frequency? 

2000 

(■) Probe Mike 

Atten re max out (dB)? 

20 

[start] 

Power = -12.8 16046 
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The text boxes specify the number of tone bursts to generate 
and the envelope of the tone bursts generated, as follows: 

riae fall 



All times are specified in number of sample periods, and 
cannot exceed 32767 sample periods. The test is initiated by clicking 
on the start button. The control buttons act just as in the aid 
parameters window. 


Loading Filter Taps 

The programs titled Aidl3 and Aidl4 have the capability to 
download filter tap coefficients to the hearing aid. The coefficients 
are read into memory from a text file which the user creates with 
any standard text editor. The coefficients in these files are signed 
integers such as "797" or M74 M (optionally be followed by a divisor, 
such as in M2028/2") and must be seperated by spaces, tabs, or 
carriage returns. 

The Aidl3 program has 32 taps per filter, and the Aidl4 
program has 31 taps per filter, but since the filters are symmetric 
about the center tap you only provide half this number of taps, orl6 
taps per filter. Thus the files contain 64 coefficients for the 4 
channels. For example, the file titled TapsFour has the following 
format: 

.535/4 -431/4 -254/4 0 333/4 743/4 1220/4 1750/4 

2315/4 2892/4 3545/4 3977/4 4432/4 4797/4 5052/4 5183/4 

-34/2 -231/2 -223/2 0 292/2 398/2 77/2 -745/2 

-1873/2 -2869/2 -3212/2 -2535/2 -831/2 1483/2 3683/2 5021/2 

-83/2 502/2 859/2 0 -1128/2 -866/2 189/2 128/2 

-442/2 890/2 3076/2 1605/2 -3814/2 -6280/2 -922/2 6543/2 


i 
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528/2 -167/2 -446/2 0 585/2 288/2 -1203/2 242/2 

442/2 1525/2 -2946/2 797/2 -174/2 6280/2 -12028/2 6482/2 

The option to download coefficients is enabled by choosing the 
"Tap Filter Load” menu entries. The Macintosh will then present the 
standard open file dialog box, which you use to specify the name of 
the appropriate text file. 


Program Design 

The program is written in 68000 Assembly Language using the 
Macintosh Development System assembler, from Apple. 

The program has been structured into seperate managers for 
each of the program’s functions. A seperate file contains the 
functions associated with each manager. For example, the Parameter 
Settings (or "PS") manager is contained in the file WDHAPS.Asm, and 
includes all routines associated with the Aid Parameters window. 

Below is a description of each manager, it's function, and the 
routines contained in each. 

WDHA.Asm 

The overall program structure is typical of a Macintosh 
application in that it has an event loop which dequeues events from 
the event queue, and then branches to code which processes each 
particular type of event. WDHA.Asm contains the WDHA program’s 
event loop. 

WDHAPS.Asm 

The Parameter Settings (”PS M ) manager contains all routines 
associated with the Aid Parameters window, which allows the user to 
control the gains and limits of each of the channels in the four 
channel programs. Specifically, these routines are as follows: 

WDHAPSOpen - Create and display the Aid Parameters window. 

WDHAPSClose - Close the Aid Parameters window and dispose 
the memory associated with it. 

WDHAPSShow - Make the Aid Parameters window visible. 

WDHAPSHide - Make the Aid Parameters window invisible. 

WDHAPSDraw - Update the contents of the Aid Parameters 
window. 
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WDHAPSControl - Cause the appropriate modification of the Aid 
Parameters window when a mousedown event occurs 
within it's content region. 

WDHAPSIS - Given a window pointer, this routine determines if 
it is the Aid Parameters window or not. 

WDHAPSSetParam - Update the hearing aid to contain the 
settings specified in the Aid Parameters window. 

WDHATCAsm 

The TC manager contains all routines associated with the Tone 
Parameters window, which allows the user to specify the parameters 
for the test/calibrate function of the four channel program, and 
initiate the test. Specifically, these routines are as follows: 

WDHATCOpen - Create and display the Tone Parameters 
window. 

WDHATCClose - Close the Tone Parameters window and dispose 
the memory associated with it. 

WDHATCShow - Make the Tone Parameters window visible. 

WDHATCHide - Make the Tone Parameters window invisible. 

WDHATCDraw - Update the contents of the Tone Parameters 
window. 

WDHATCControl - Cause the appropriate modification of the 
Tone Parameters window when a mousedown event 
occurs within it’s content region. 

WDHATCIS - Given a window pointer, this routine determines if 
it is the Tone Parameters window or not. 

WDHATCIdle - Blink the text caret of the Tone Parameters 
window. 

WDHATCKey - Insert a key press into the active text box of the 
Tone Parameters window. 

WDHATCDoTest - Initiate a test by the hearing aid program, 
using the parameters specified by the Tone Parameters 
window. 

EarModuleCalibrate • Compute the He values for each of the 
four channels (this routine uses the test/calibrate 
function of the hearing aid to figure the real ear pressure 
at the center frequency of each channel). 

WDHASCSI.Asm 

The SCSI manager contains all routines which send record 
structures to the hearing aid via the SCSI bus. 
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SetParam - Send the four channel parameter record (containing 
the gains and limits) to the four channel hearing aid 
program. 

SetCoefficients - Send out the filter tap coefficients to the four 
channel hearing aid program. 

SetFileParams - Send the parameters required by the spectral 
shaping program. 

wdhatest - Initiate a pure tone test by sending the 
test/calibrate record to the hearing aid. 

WDHAFC.Asm 

The WDHA program accesses some numerical values it needs 
by reading them in from text files. The File Coefficients (FQ manager 
contains routines which access these text Files. 

WDHAFCSet - This routine is called when the user selects the 
"Load Filter Taps" menu option. It uses the SFGetFile 
dialog to get the name of a text file containing filter 
coefficients* convert the contents to integer form, and 
then downloads them to the hearing aid. 

WDHASetFileParams - This routine is used to download 

parameters to the Spectral Shaping hearing aid program. 

It uses the SFGetFile dialog to get the name of a text file 
containing the spectral shaping parameters, converts the 
contents to integer form, then downloads them to the 
hearing aid. 

WDHACalEarModFile - This routine is called when the user 

calibrates the ear module. It uses the SFGetFile dialog to 
get the name of a text file containing ear module H 
Tables, and converts it's contents to integer form in 
memory. Then it calibrates the ear module using the TC 
manager function EarModuleCalibrate. Finally, it writes 
the new H Tables over the same file. 

WDHAMenu.Asm 

The Menu manager contains all routines associated with the 
WDHA program's menu bar. 

MakeMenus - Create the Menu bar containing the accessory, 
file, and hearing aid menus, and display it on the screen. 
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MenuBar - When the main event loop gets a mouseDown event 
located in the menu Bar, this routine calls the appropriate 
code to handle the selection. 

SetProgMenu - This routine interrogates the hearing aid to 
determine which program it is currently running, then 
places the appropriate menu in the menu bar. 

Programmer's Note - 

As explained earlier, the WDHA program has seperate 
pulldown menus defined for each program which runs on the hearing 
aid, giving the options available for that particular program. It is not 
difficult to add a new menu to the hearing aid program. The 
following example shows the steps one would follow to add a new aid 
menu (in this case ’Aidl7*} to the menu bar. 

First of all t the constants needed for the menu must be defined 
with equate statements. You must define the code returned by the 
aid program when it is interrogated by the Macintosh, the identifier 
for the menu itself (as required by the NewMenu toolbox function), 
and the offset within the menu handles declarations where this 
handle will reside (the handles are defined in a sequential block: of 
memory near the end of the Menu. Asm file). 

Aidl7ID equ -17 ; aid program id returned by interrogating the 

aid. 

Aidl7Menu equ 17 ; Unique menu identifier 

menuaid!7equ 40 ; I0*4=smenuhandle offset (this is the tenth 

handle) 

Next you would declare the location to store the menu s handle 
at the end of the menu handles declarations: 

dc.l 0 ; Aid 17 menu handle 

Next one would add code to the MakeMenus routine to create 
the new menu (simply cut and paste the code which creates one of 
the current menus and modify it accordingly). 

You would also modify the SetProgMenu routine to handle the 
new menu (once again simply replicate the code sections which 
handle one of the old menus, and change the menu names 
appropriately). 

Finally, you would modify the MenuBar routine to handle your 
new menu. If all the options contained in your menu are also in the 
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other hearing aid menus, you can call the InAidMenu procedure (as 
the other menus do), otherwise you must define your own procedure 
to call. 

WDHADisk.Asm 

The disk manager contains routines used to access disk files on 
the Macintosh. 

DiskCreate - Create a new file. 

DiskRead - Read sectors from a file. 

DiskWrite - Write sectors to a file, 

DiskEject - Eject a disk. 

DiskOpen - Open a file. 

DiskClose - Close a file 

DiskSetFPos - Set the position of a file's read/write mark. 
DiskSetEOF - Set the location of the end of file marker for a 
file. 

DiskSetFInfo - Set the finder information for a file. 
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Include MacTraps.D 
Include ToolEquX.D 
Include SysEquX,D 
Include QuickEquX.D 
Include MDS2:WDHAPS.hdr 
Include MDS2:WDHATC.hdr 
Include MDS2:WDHAMenu.hdr 


WDHA program 

This program controls several Macintosh windows which allow the user to 
manipulate the digital hearing aid. The Macintosh communicates with the aid 
by sending records via the SCSI port. 

This particular file is a ‘standard" Macintosh style event loop 
which dequeues each event and calls the appropriate routine to handle the event. 

Additional files contain routines associated with each control window. 
Executing the program should provide an overall understanding of the function 
of these windows. Specifically, the packages used are: 

The WDHA Paramater Settings Window Manager - in WD HAPS. Asm 

The WDHA TesVCalibrate Window Manager - in WQHATC.Asm 

In addition, the following files contain various utility routines: 

WDHAMenu.Asm - sets up the menus 

WDHASCSl.Asm - low level routines for communicating through the SCSI bus 

WDHAFC.Asm * contains high-level routines for downloading coefficient 
files to the hearing aid. 

WDHADisk.Asm - routines lor doing disk access. 

External Definitions- - 


XDEF 

Start 

XDEF 

EventLoop 

XDEF 

Update 

XDEF 

What 

XDEF 

When 

XDEF 

EventRfecord 

XDEF 

WWindow 

XDEF 

Message 

XDEF 

Where 

XDEF 

Modify 


Constant Definitions 


ActiveS it equ 0 ;Bit position of de/activate in modify 


Start: 

Code Starts 

bsr 

InitManagers 

bsr 

WDHAPSOpen 

bsr 

WDHAPSHkfe 

bsr 

WDHATCOpen 

bsr 

WDHATCHkte 


Hare 

; Initialize TooiBox 

; Create the paramater settings window. 
: Don't leave it open though. 

; Create the lest/calibrats window. 

; Don't leave it open though. 
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bsr 

MakeMenus ; Set up the menus 

EventLoop: 




_SystemTask 


Give System some time 

bsr 

WDHATCIdle 

Blink the test window’s caret 

; FUNCTION 

GetNext£vent( event Mask: INTEGER; 

| 

VAR theEvent: EventRecord) : BOOLEAN 

{ CLR 


-(SP) 

Clear space for result 

MOVE 


#$0FFF,-{SP) 

Allow 12 low events 

PEA 


EventRecord 

Place to return results 

4 GetNexlEvent 


Look for an event 

l MDVE 


(SP)-f.DO 

Get result code 

\ beq 


EventLoop 

No event... Keep waiting 

? BSR 


HandleEvent 

Go handle event 

\ bra 


EventLoop 

return to eventloop cail 

HandleEvent: 




; Use the event number 

as an index into the Event table. These 1 2 events 

; are ail the things that could spontaneously happen while the program is 

; in the main loop. 



MOVE 


What, DO 

; Get event number 

ADD 


D0,D0 

* 2 lor table index 

MOVE 


EventTable{D0),D0 

Point to routine offset 

JMP 


EvemTable(DO) 

and jump to it 

EventTable: 




l DC.W 


OtherEvent-EventTable 

Null Event (Not used) 

1 DC.W 


MouseDown-EventT able 

Mouse Down 

DC.W 


Other E vent-E ventT able 

Mouse Up (Not used) 

DC.W 


KeyEvent-EventTable 

Key Down 

DC.W 


OtherEvent-EventT able 

Key Up {Not used) 

DC.W 


Key Event- EventTable 

Auto Key 

; DC.w 


UpD ate- EventTable 

Update 

f DC.W 


OtherEvent-EventT able 

Disk (Not used) 

DC.W 


Activate-EventTable 

Activate 

DC.W 


OtherEvent-EventTable 

Abort (Not used) 

DC.W 


OtherEvent-EventTable 

Network (Not used) 

DC.W 


OtherEvent-EventTable 

I/O Driver (Not used) 





1 


" “ " CVtJfll 


OtherEvent: 




rts 




{ Activate: 




f ; An activate event is posted by the system when a window needs to be 

M ; activated or deactivated. The information thai 

indicates which window 

E| ; needs to be updated was returned by the NextEvent cail. 

btst 


#ActiveBit, Modify 

Activate? 

beq 


Deactivate 

No, go do Deactivate 

; Bring it to the 

front 



move.l 


Message,-(sp] 


[ 

L 
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_BrmgTo Front 
; Show it 

move. I Me$sage,-(sp) 

_S how Window 
; Select it 

move. I Message, -(sp) 

_SelectWindow 

rts 

Deactivate: 

rts 


Update: 

: The window needs to be redrawn, 

; PROCEDURE BeginUpdate (theWindow: WindowPtr); 


MOVEL 

message, -(SP) 

; Get pointer to window 

_BeginUpDate 


; Begin the update 

move.! 

message,-(sp) 


bsr 

WDHATCIS 

; Was it our TC window? 

tst.w 

(sp)+ 


BEQ 

DontTCDraw 


bsr 

WDHATCDraw 

; Draw the TC window. 

bra 

DoneDraw 


DontTCDraw: 

move.l 

message, -(sp) 


bsr 

WDHAPSIS 

; Was it our PS window? 

tst.w 

(sp)+ 


BEQ 

DontPSDraw 


bsr 

WD HAPS Draw 

; Draw the PS window. 

bra 

DoneDraw 


DontPSDraw: 

DoneDraw: 

; PROCEDURE EndUpdata {theWindow: WindowPtr); 

MOVEL 

message. *(SP) 

; Get pointer to window 

_EndUpdate 


; and end the update 

rts 


MouseOown: 



; tf the mouse button was pressed, we 

must determine where the dick 

; occurred before we can do anything. 

Call FindWindow to determine 

; where the click was; dispatch the event according to the result. 

; FUNCTION 

FindWindow (thePt: Point; 

; 

VAR whichWindow: WindowPtr); INTEGER; 

cm 

•(SP) 

; Space for result 

MOVEL 

Where.-(SP) 

; Get mouse coordinates 

PEA 

WWindow 

; Event Window 

_Find Window 


; Who's got the click? 

MOVE 

(SPKDO 

; Get region number 

ADD 

DO.DO 

; *2 for index into table 

MOVE 

WindowTabi9(DO),DO ; Point to routine offset 
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JMP 

WindowTable(DO) 

; Jump to routine 

WindowTable: 



DC.W 

oiher-WindowTabie 

; In Desk (Not used) 

DC.W 

MenuBar-' WindowTable 

; In Menu Bar 

DC.W 

SystemEvent* WindowTable ; System Window i 

DC.W 

Content- Wind owT able 

; In Content 

DC.W 

Drag«Wtr»dowT able 

; In Drag 

DC.W 

G row- Wind ow T able 

; In Grow 

DC.W 

GoAway-WindowTable 

; In Go Away 


Other: 

rts 

SystemEvent: 

; Cali SystemClick to handle the desk accessory windows, 
pea EventRecord 
move.! wwindaw,-{sp) 

^SystemClick 

rts 

Content: 

: Was it in the content of an active window? 


clr.l 

-<sp) 


FrontWindow 

mave.l 

(spH.dl 

; Get the FrontWindow in dl 

cmp.i 

wwindow.dl 

; Are they the same? 

beq 

WasActive 


move.l 

wwindow.'(sp) 

; It wasn't 

^Select Window 


; So select it 

bra 

DoneContent 


WasActive: 

move.l 

wwindow,-(sp) 


bsr 

WDHAPStS 

; Was it our PS window? 

tst.w 

(sp) + 


beq 

NotPSContent 


move.l 

where, -(sp) 


bsr 

WDHAPSComrol 

; Handle the event. 

bra 

DoneContent 


NotPSContenl: 

move.l 

wwindow.-(sp) 


bsr 

WDHATCtS 

; Was it our TC window’’ 

tst.w 

(sp)+ 


beq 

NotTCContent 


move. 1 

where t -(sp) 


bsr 

WOHATCControl 

; Handle the event 

bra 

DoneContent 


NotTCContent: 

DoneContent: 

rts 


Drag: 

; The click was in the drag bar of the window. Draggit. 

; OragWindow (theWindow:WindowPtr; startPt: Point; boundsRect: Rect); 
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MOVEL wwindow,*{SP) ;Pass window pointer 
MOVEL where, -(SP) ;mouse coordinates 
PEA bound ;and boundanes 

_D rag Window ;Orag Window 

rts 


Grow: 

; The click was in the grow box 
NoGrow: rts 


GoAway: 

clr.b '(sp) 
move.l wwindow.-(sp) 
move.! where.-(sp) 
JTrackGoAway 
tst.b (sp)+ 
beq NoGoAway 
JustHide: 

; PROCEDURE HideWindow (theWindow: 
MOVEL wwindow,-{SP) 

_Hide Window 
NoGoAway: 
rts 

KeyEvent: 

CLR.L -<SP) 

_FrontWindow 
bsr WDHATCIS 
tst.w (sp)+ 
beq TCNotActive 
move.wmessage+2,-{sp) 
bsr WDHATCKey 
TCNotActive: 
rts 


; Close the Window 
; make room for a Boolean 


; Track It 

; Did they stay in the box? 
; If no then don’t close. 

WindowPtr) 

; Pass window pointer 
; Hide the Window 


; Space for result 
; Get window pointer on stack 
; Was it our TC window? 


; get the char 

; Insert it in the active text box 


; InitManagers initializes all the ToolBox managers. You should call 
; InitManagers once at the beginning of your program if you are using 
; any of the ToolBox routines. 

InitManagers: 

pea -4(a5) 

JnitGraf 

JnitFonts 

move. I #$0000FFFF,d0 

_FlushEvents 

JnitWindows 

JnitMenus 

clr.l * (sp) 

JnitDialogs 

iTEInit 

JnitCursor 

rts 
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WOHA header file 

this file must he included to access the data structures contained in 
the file WDHA.Asm 

XFUEF EventLoop 
XREF Update 
XREF EvenlRecord 
XREF What 
XREF Message 
XREF When 
XREF Where 
XREF Modify 
XREF WWindow 

TRUE EQU t 

FALSE EQU 0 
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WDHAMae.txt 

macros for WDHA program 

12/27/86 AME 


;Dialog 
; Macro 

Macro Dialog xpos^pos.txtstrmg, result * 

mova.w{xposJ,-(SP) 

move.w{ypos}.-{SP) 

_MoveTo 

pea '{txtstring}’ 

_DrawString 
pea Key But 

bsr GetStr 

lea keybuf.aO 

move.wtfl ,-{SP) 

_Pack7 ;StringToNum 

move. wdO, {result} 

I 

;DispStrtng 

;Macro 

Macro DispString xpos.ypos, txtstring = 

move.w{xpo$h-(SP) 

move, w {yposj , *(SP) 

_MoveTo 

pea ’{txtstring}' 

_DrawString 


,Disp Value 
;Macro 

Macro DispVaiue xpos.ypos, label, value = 
movem.l aQ-a6/dO-d7,-{sp) 

move.w{xpos},-(SP) 
move.w{ypos},-{SP) 

_MoveTo 
pea ’{label}’ 

_DrawString 

lea KeyBuf.aO 

move. I [value}, dO 

move.w#0,-(SP) ;Select NumToString 

_Pack7 

pea KeyBuf 

_DrawString 

movem.l (sp) + ,a0-a6/d0-d7 

i 

;DispWValue 

;Macro 
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Macro DispWValue xpos.ypos.labei.value = 
movem.l a0'a6/d0*d7,-(sp) 

move.w{xpos),-(SP) 
move.w{ypos),-(SP) 

__MoveTo 
pea '{label)' 

__DrawStrmg 

lea KeyBuf.aO 

move.w(value},dO 
exl. i dO 

move.w#0,*(SP) ;S«lect NumToString 

__Pack7 

pea Key Bui 

__Draw$tring 

movem.l (sp)+ t aQ-a6/dQ-d7 

I 
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; WDHAMenu.Asm 

; This file contains routines which create and manipulate the menus used in 
; the WDHA program. 

Include MacTraps.D 
Include ToolEquX.D 
Include SysEquX.D 
Include Quick EquX.D 
Include MDS2:WDHAMac.txt 
Include MDS2:WDHA.hdr 
Include MDS2:WDHAPS.hdr 
Include MDS2:WOHATC.hdr 
Include MDS2: WDHAFC. hdr 
Include MDS2:WDHASCSLhdr 


xdef 

MakeMenus 

xdef 

MenuHandles 

xdef 

MenuBar 

AppleMenu 

EQU 

1 

About Item 

EQU 

1 

menuapple 

equ 0 

;menuhandie offset 

FileMenu 

EQU 

2 

Quilltem 


EQU 1 

menufile 

equ 4 

;menuhandle offset 


; Now the aid menus. All have a ’new program' entry, and a blank line. 
NewProgltem EQU 1 


AidBtank 

EQU 

2 

Aid12!D 


BQU - 1 2 ; program version id 

Aid12Menu 

BQU 

5 

Set Item 

EQU 

3 

TestJtem 

EQU 

4 

menuaidl 2 

equ 8 

;menuhandie offset 

Ald13iD 


EQU *1 3 ; program version id 

Aidl3Menu 

BQU 

6 

FCItem ECU 

5 


menuaidl 3 

equ 12 

;menuhandle offset 

Aidt 4ID 


EQU -14 ; program version id 

Aid14Menu 

BQU 

7 

menuaidl 4 

equ 16 

;menuhandle offset 

SS15tD 


EQU -100 

SSISMenu 

EQU 

B 

Load Item 

EQU 

3 

menussl S 

equ 

20 

NoneMenu 

EQU 

9 

menunone 

equ 

24 
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; Name: MakeMenus 

; Function: MakeMenus creates and displays the menu bar. 
; Input: None 
; Output: None 
MakeMenus: 

;Clear menu bar 

CJearMenuBar 


lea MenuHand1es,a4 

;First add Apple Menu 
:Make it. 

clr.l -(sp) 

move.w#AppieMenu,-{sp) 
pea AppleName 

_NewMenu 

move.l (sp)+.menuapple(a4) 
;Add entries 

move.l menuappie(a4),-{sp) 
pea ’About WDHA:{-’ 

AppendMenu 

move.l meruapple(a4),-{sp) 
move.l #*DRVR\-(sp) 
_AddResMenu 
; Insert it in the menu bar. 

move.l menuappte(a4),-(sp) 
move.w#0,-(sp) 

JnsertMenu 

; Now add File Menu 
;Make it. 

clr.l -(sp) 
move.w#FileMenu ( -{sp) 
pea 'File* 

_NewMenu 

move.! (sp)+,menufile(a4) 
;Add entries 

move.l menufile(a4),-(sp) 
pea ‘Quit* ;push 

_AppendMenu 
; Insert it in the menu bar. 

move.l menufile(a4),-(sp) 
move.w#0,-(sp) 

InsertMenu 


;space for function result 
;1irst menu 
;apple character 

;store handle 

push handle again 

push menu item 

push handle again 
;load all drivers 


push handle again 
;insert at end 


;space for function result 
;second menu 
;menu title 

:store handle 


;push handle again 


push menu item 


push handle again 
;insert at end 


;Now create the WDKA program menus. 


clr.l -(sp) 
move.w#NoneMenu,-{sp) 
pea 'WDHA Disconnected’ 
_NewMenu 

move.l (sp)+,menunone(a4) 
;Add entries. 

move.l menunone(a4),*(sp) 


.space for function result 


;menu title 


;store handle 
push handle 


pea ’New WDHA Program;*-* .menu items. 
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_AppendMenu 

; aid 12 

clr.l -{sp) ;space for function result 

mave,w#Aid12M«nu,*(sp) 

pea 'Aid12* ;menu title 

_NewMenu 

move. I (sp)+,menuaidt2(a4) ;$tore handle 
;Add entries. 

move.) menuaidl 2(a4),-{sp) push handle 

pea 'New WDHA Program;(-;4 Channel Parameters ;Test Calibrate' ;menu items. 
_AppendMenu 

; aid13 

clr.l -{sp) ;space for function result 

move.w#Aid1 3Menu,-(sp) 

pea 'Aid 13' ;menu title 

_NewMenu 

move.! (Sp)+,menuaid13(a4) ;stora handle 
;Add entries. 

move, I menuald13(a4) t -(sp) ;push handle 

pea ’New WDHA Program;(-;4 Channel Param8ters;Test Calibrate;32 Tap Filter Load’ 
;menu items. 

_AppendMenu 

; aid14 

clr.l -(sp) ;space for function result 

move.w#Aid1 4Menu,-(sp) 

pea *Aid14 f ;menu title 

_NewMenu 

move. I (sp)+. menuaidl 4(a4) :store handle 
;Add entries. 

move ! menuaid14(a4),-(sp) push handle 

pea 'New WOHA Program;(-;4 Channel Paramelers;Test Calibrated Tap Filter Load’ 
;menu items. 

_AppendMenu 

; SSI S 

clr.l -{sp) ;space for function result 

move.w#SSl SMenu.-(sp) 

pea *SS15’ ;menu title 

_NewMenu 

move.l {sp)+,menusst5(a4) ;store handle 

Add entries. 

move.l menuss15(a4),-(sp) push handle 

pea 'New WDHA Program;(*;Parameter Load' ;menu items. 

_AppendMenu 

;lnsert one in the menu bar since SetProgManu deletes one. 
move.l memjnone(a4),-{sp) ;push handle again 

move.w#0,-(sp) ;insert at end 

JnsertMenu 

; Set the proper WDHA program menu 
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bsr SetProgMenu 
rts 

; Name: SetProgMenu 

; Function: This routine interrogates the hearing aid to determine which 
; program it is currently running, then places the appropriate menu 
; in the menu bar. 

; Input: None 
; Output: None 
SetProgMenu: 

; Close windows so that no inappropriate windows remain, 
bsr WDHAPSHide 

bsr WDHATCHide 

; Delete the old menu (whichever it is) 
move.w#Aid1 2Menu,-(sp) 

_DeteteMenu 

move.w#Aidt3Menu,-($p) 

_DeleteMenu 

move.w#Aid14Menu,-(sp) 

_DefeteMenu 
move.w#SS1 5Menu,‘(sp) 

JDeleteMenu 

move.w#NoneMenu,-($p) 

_DeleteMenu 
; Default to NoneMenu 

lea MenuHandies,a4 

move.) menunone(a4),-{sp) 
move.w#0,*(sp) 

JnsertMenu 
; re draw the bar 

_OrawMenuBar 

move.w#0,-(sp) ;clear any highlighting. 

_H»LiteMenu 
; Now check what i! is 
clr.w -(sp) 
bsr SCSI Interrogate 
move.w(sp)+,d0 
lea MenuHand(es,a4 
cmp.w #Aidl2ID,dO 
bne NotAid12 

move.) menuaidl 2(a4),a3 :get handle 

bra AddProgMenu 
NotAid12: 

cmp.w #Aidl3ID,dO 
bne NotAid13 

move.) menuaidl 3 (a4),a3 ;get handle 

bra AddProgMenu 
NotAid13: 

cmp.w #Aid14ID.dO 
bne NotAid14 

move. I menuaidl 4(a4),a3 ;get handle 

bra AddProgMenu 
NotAidl 4: 

cmp.w #SSf5ID,dO 
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bne NotSSI 5 

move. I menuss15(a4),a3 ;get handle 
bra AddProgMerru 
NotSSI 5: 

move. I menunone{a4),&3 
move.w#20,*(sp) 

_Sys8eep 

Add Prog Menu: 

move.w#NoneMenu,-($p) 

JDeleteMenu 
move. I a3,-(sp) 
move.w#Q,«(sp) 

_lnsertM©mj 
; redraw the bar 

_DrawMenuBar 

ClearReturn: 

move,w#0,-(sp) ;clear any highlighting. 

_HiLiteMenu 

rts 


Name: MenuB&r 

Function: This routine should be called when the mouse is clicked in the 
menu bar. 
input: None 
Output: None 
MenuBar: 

clr.l -<sp) 
move. I where, -(sp) 

^MenuSelect 
move.! (sp)+,d0 
swap dO 


; space for result 
; location of mouse 

;get result (menu id, item #) 
;get menu id in low word 


Choices: 

cmp.w 

beq 

cmp.w 

beq 

cmp.w 

beq 

cmp.w 

beq 

cmp.w 

beq 

cmp.w 

beq 

cmp.w 

beq 

cmp.w 

beq 

@1 bra 


#0,d0 ;Wa* it in any menu? 

@i ;no menu id 

#AppleMenu,dO ;Was it in the apple menu? 
InApptoMenu 

#FileMenu,dO ;Was it in the file menu? 

InFiieMenu 

#NoneMenu,dO 

InSSMenu 

#Aid12Menu,dO 

InAidMenu 

#Aid13Menu,dO 

InAidMenu 

#Aid14Menu,dO 

InAidMenu 

#SSl5Menu,dO 

InSSMenu 

ClearReturn 


InAppleMenu: 
: Getltem 


57 



65 


66 


5 , 706,352 


swap d0 ; get item # in low word 

cmp.w #Aboulltem,dO 
bne NotAbout 

Open About dialog window. 

FUNCTION New Window (wS tor age: Ptr; boundsRect: Rect; 

title: Str255; visible: BOOLEAN; 
procID: INTEGER; behind: WindowPtr; 
go Away flag: BOOLEAN; 



relCon: Longlnt) 

; WindowPtr; 

SUBQ 

#4,SP 

; Space for function result 

CLRL 

.(SP) 

; Storage for window (Heap) 

PEA 

AboutBounds 

; Window position 

PEA 

’About WDHA’ ; Window title 

MOVES 

#255,-(SP) 

; Make window visible 

MOVE 

#dBoxProc,-(SP) 

; Standard document window 

MOVEL 

#-1 ,-(SP) 

;Make it the front window 

move.B 

#-1,-{SP) 

; Window has goAway button 

CLRL 

-(SP) 

; Window ref Con 

NewWindow 

; Create and draw window 

lea 

AboutPtr,a4 


MOVEL 

(SP}+»(a4) 

; Save handle for later 

MOVEL 

(»4),-(SP) 

; Make sure the new window is the port 

PROCEDURE SetPort (gp: GrafPort) 


_SetPort 

; Make it the current port 

move.w 

#0. - (sp) 


_Textfont 

; Make sure 

it's the system font 

move.w# 1 

(sp) ; Bold 


_TextFace 



DispString 

#20, #16, Wearable Digital Hearing Aid Fitting Procedure V. 1.0 

move.w#0, 

-(sp) ; Plain Text 


_TextFace 



DispString 

#200, #32, Central Institute For The Deaf 

DispString 

#200, #48, 81 8 South 

Euclid Ave. 

DispString 

#20O,#64,St. Louis 

Mo. 63110 

DispString 

#20Q,#8D, Phone: 314-652-3200 

move.w# 1 ,-(sp) ; Bold 


_TextFace 



DispString 

#20, #9 6, Supported i 

in pari by: 

- move.w #0, 

-(sp) ; Plain Text 



_TextFace 

DispString #40,#112,The Rehabilitation Research And Development Service 

DispString #40,#1 28, Dept, of Medicine and Surgery: Veterans Administration 
; Print the big "C1D* 

move.w#36,-(sp) 

_TextSize 

move.w #1 7, -(sp) ; Bold+Shadow 

_TextFace 

DispString #44, #64, CIO 

; Set text characteristics back to normal 
mova.w#t 2,-(sp> 

_TextSize 

move.w#0, -(sp) ; Plain Text 

_TextFace 
; Wait lor an evert 
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move. I #$OOOOFFFF,dO 
_F lush Even Is 
EvtWait; 

; FUNCTION GetNextEvent(eventMask: INTEGER; 

; VAR theEvent: EventRecord) : BOOLEAN 

CLR -(SP) ; Clear space for result 

MOVE #$OOOF,-(SP) ; Allow 12 low events 

PEA EventRecard ; Place to return results 

_GetNextEvent ; Look for an event 

MOVE (SP)+,D0 ; Get result code 

BEQ EvtWait ; No event... Keep waiting 

; Dispose Window 

move.l AboutPtr,-(sp) 

_DisposWindow 
bra ClearReturn 

NotAbout: 

lea Me nu Handles, a4 


move.l menuappla(a4).-(sp) ; Look in Apple Menu 

move.wd0,-(5p) 

; wha! item # 

pea Desk Name 

; get item name 

_Getltem 


; OpenDeskAcc 


clr.w -(sp) 

; space for result 

pea DeskName 

; open DeskName acc 

^OpenDeskAcc 


move.w(sp)+,dO 

; pop reaull 

bra ClearReturn 


InFileMenu: 


swap dQ 

; get item # in low word 

cmp.w #Quitltem,dO 

; Is it quit? 

bne DoneFila 

; If not forget it 

bsr WDHAPSCIose 

; dispose of the parameter settings window 

bsr WDHATCCtose 

; dispose of the test/calibrate window 

_ExitToShell 

; leave application 

DoneFile: 


bra ClearReturn 


In Aid Menu: 


swap dO 

; get item # in low word 

cmp.w #NewProgltem,dO 

bne @9 


bsr SetProgMenu 


bra WMDone 



cmp.w 

bne 

bsr 

bra 

cmp.w 

bne 

bsr 

bra 

cmp.w 


#SeUtem,dO 

@1 

WDHAPSShow 

WMDone 

#Testltem,dO 

@2 

WDHATCShow 

WMDone 

#FCftem,dO 
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bne 

bsr 

bra 

(5>4 

WMDone 


@4 

WOHAFCSet 

WMDone 

bra ClearReturn 


do ; get item # in low word 

#NewProgltem,dO 

@1 

SetProgMenu 
SSDone 
ffLoadltem.dO 
@ 2 

WDHASetFileParams 

SSDone 


InSSMenu: 

swap 
cmp.w 
bne 
bsr 
bra 

(§>1 cmp.w 
bne 
bsr 
bra 

@2 

SSDone bra ClearReturn 


; Data starts 

MenuHandtes: 



dc.l 

0 


dc.l 

0 


dc.l 

0 


dc.l 

0 


dc.l 

0 


dc.l 

0 


dc.l 

0 

AppfeName: 

dc.b 

1 . si- 

DeskName: 

dcb.w 

16,0 

AboutPtr 

dc.l 

0 

AboutBounds: 

dc.w 

100 


dc.w 

50 


dc.w 

232 


dc.w 

472 


here - - 

;handle to apple menu 
;handle to file menu 
;handle to aid12 menu 
;handle to aidl3 menu 
;handie to aid 14 menu 
;handle to ss15 menu 
;handle to none menu 

; A string containing the apple symbol 
;desk accessories name 

; the About dialog window pointer 

; upper 
; left 
; lower 
; right 
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;WOHAMenu header file 

, This file must be included if any routines in WDHAMenu are used, 
xref MakeMenus 
xref MenuHandles 
xref MenuBar 
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; file WDHAPS.Asm 

Include MacTraps.D 
Include Tool£qu.D 
Include SysEquX.D 
Include QuickEquX.D 
Include SANEMacs.txt 
Include MDS2:WDHA.hdr 
Include MDS2:WDHASCSI.hdr 


; WDHA Paramater Settings Window Manager 

; This package contains routines to manipulate the WDHA Parameter 

; Settings window. This window contains an interface which controls the 
; gain and limit of each channel of the WDHA by allowing the user to move 
; bars on a graph of Frequency versus dB SPL (execute the program for a better 
; understanding), this control is referred to as the "PSGraph" in the program 
; documentation. Next to this graph is a chart (the "PSChart") containing the 
; numeric values of each channel's gain and limit. 

; It also contains control buttons to specify if the WDHA should be in 

; Hearing aid mode, if the input attenuation should be off or on. and whether 
; the aid should use the probe mike or the field mike. The output attenuation 
; is automatically turned on or off by the program, it's control being used 
; as an indicator of this status. 

; Wherever the documentation refers to the term "theta", it is refering 

; to the height of the lower bar of the bar graph, and wherever the documentation 
; uses "phi", it refers to the height of the upper bar. 

; External Definitions 

XDEF WDHAPSOpen 
XDEF WDH APS Close 
XDEF WDHAPSShow 
XDEF WDHAPSHiOe 
XDEF WDHAPSDraw 
XDEF WDHAPSControl 
XDEF WDHAPSIS 
XDEF WDH APSSet P aram 

; Constant Definitions 

CHANNELS EQU 4 ; There are four channels 


; PSG * The Parameter Settings Graph 


PSGHeight E CL) 

PSGChanWidth ECU 
PSG Width EOU 

PSGlnitX BQU 

PSGinilY BQU 


120 ; Graph height in pixels 

20 l each bar is PSGChanWidth pixels wide. 
CHANNELS'PSGChanWidth ; Graph width in pixels 
30 i initial X coord (local) of ul corner of graph 

20 ; initial Y coord (local) of ul corner of graph 


; PSC - The 

PSCFWkJth 

PSCFHeight 

PSCWidth 

PSClnitX 


Parameter Settings Chan 

EQU 46 ; channel, gain and limit field width 

BQU PSGHeight/(CHANNEL$+1) ; height of box in chart 

ECU 3"PSCFWidth 

EQU PSGInitX+PSGWidth ; X coord (local) of ul comer of chart 
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PSCInitY EQU PSGInitY ; Y coord (local) of ul corner of chart 


; PS * The Parameter Settings Window 

PSInitX ECU 60 ; initial X coord (global) of upper left corner 

PSInitY EQU 80 ; initial Y coord (global) of upper left corner 

PSRightEQU PSImtX+PSGWidth+PSCWidth+2*PSGInitX+140 

PSTxtSiie ECU 12 


; PSCti m The Control Buttons 

PSCtllnitX B3J PSGInitX+PSGWkith+PSCWkHh+10 

PSCti InitY EQU PSGlnitY+5 

PSCtlFHeight KJU PSCFHeight 

; Subroutine Declarations 

; Name: WDHAPSOpen 

; Function: Call this routine to create and display the PS Window. 

; Input: None 
; Output: None 
WDHAPSOpen: 

movem.l d0-d2/a0-a6,-(sp) ; save registers 

; Set up document window. 

; FUNCTION NewWindow (wS tor age: Ptr; boundsRect: Reel: 

; title: Str255; visible: BOOLEAN: 

; procID: INTEGER: behind: WindowPtr; 

; goAwayFlag: BOOLEAN; 

; refCon: Longlnt) : WindowPtr; 


SU0Q 

#4,SP 

; Space for function result 

CLR.L 

-{SP) 

; Storage for window (Heap) 

PEA 

WDHAPSBounds 

; Window position 

PEA 

*WDHA Parameter Settings' ; Window title 

MOVEB 

#255,-(SP) 

; Make window visible 

MOVE 

#rDocProc,-(SP) 

; Standard document window 

MOVEL 


;Make it the front window 

move.B 

#-1,-(SP) 

; Window has goAway button 

CLR.L 

-(SP) 

; Window relCon 

_NewWindow 


; Create and draw window 

lea 

WDHAPSPtr,a4 


MOVEL 

(SPK(a4) 

; Save handle for later 

MOVEL 

(a4),-{SP) 

; Make sure the new window is the port 


; PROCEDURE SetPort (gp: GrafPort) 

_SetPort : Make it the current port 

; Add the control buttons 

bsr PSAddControls 

bsr WDHAPSDraw 

movem.l (Sp}+,d0*d2/a0-a6 ; Restore registers 

RTS 


; Name: WDHAPSCIose 

; Function: Call this routine to destroy the PS Window and remove it from 
; the screen. 

; Input: None 
; Output: None 
WDHAPSCIose: 

movem.l d0-d7/a0-a6,-(sp) ; save registers 
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move.l WDHAPSPtr,-(sp) 

_KillControls 
; Dispose Window 

move. I WDHAPSPtr.-(sp) 

_DisposWindow 

movem.l (Sp)+,d0*d7^a0-a6 ; restore registers 

rts 

; Name: WDHAPSShow 

; Function: This routine makes the PS window visible and frontmost. 

; Input: None 
; Output: None 
WDHAPSShow: 

movem.l d0-d7/a0’a6,-(sp) ; save registers 

; Bring it to the front 

move.l WDHAPSPtr.-(sp) 

_BringToFront 
; Show Window 

move.l WDHAPSPtr,-(sp) 

_ShowWindow 

move.l WDHAPSPtr.-(sp) 

_SeiectWindow ; So select it. 

movem.l (sp)+,dO-d7/aO-a6 ; restore registers 

rts 

; Name: WDHAPSHide 

; Function: This routine makes the PS window invisible, removing it from the 
; screen (but not destroying it). 

; Input: None 
; Output: None 
WDHAPSHido: 

movem.l dO-d7/aO-a6.-(sp) ; save registers 

; Hide Window 

move.J WDHAPSPtr,.(sp) 

_HkteWindow 

movem.l (Sp)+-,d0~d7/a0*a6 ; restore registers 

rts 

; Name: WDHAPSOraw 

; Function: This routine draws the PS window’s contents. 

; Input: None 
; Output: None 
WDH APS Draw : 

movem.l dO-d7/aO-aS,-(sp) ; save registers 

lea WDHAPSPtr.a4 ; Pointer on stack 

MOVEL (a4),-(SP) 

; PROCEDURE SetPort (gp: GrafPort) 

_SetPort ; Make it the current port 

; First draw the graph 

pea WDHAPSGraph 

_EraseRect ; clear it 

pea WDHAPSGraph 

_FrameReci ; Frame it 

move.w#patOr,-(sp) 
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_PenMode ; change to Or pen mode. 

move.w#0,d4 ; count thru channels 

DrawChans: ; draw each channel 

cmp.w #CHANNELS,d4 ; done yet? 

beq DoneOC 
; Draw Theta Bar 

pea ThetaPat 

_PenPat ; set pen pattern to ThetaPat 

move.wd4,-{sp) 

bar OaiThetaRect ; Calculate theta rectangle 

pea TRect 

_PaintRect ; Fill with pattern 

; Draw Phi Bar 

pea PhiPat 

_PenPat ; set pen pattern to PhiPat 

move.wd4,’(sp) 

bar CalPhiRect 

pea TRect 

_PaintRect ; Fill with pattern 

add.w #1,d4 
bra DrawChans 
DoneOC: 

_PenNomnal ; Reset Pen to original settings 

move.w#PSTxtSize,-<sp| 

_TextSize 

move.w#PSGInitX+0*PSGChanWidth+PSGChanWidth( f 2 1 >{sp) 

move.w#PSGInltY+PSGHeight+PSTxtSize,-(sp} 

_MoveTo 
move.w#’1 \-(sp) 

_DrawChar 

move.w#PSGInitX+1 *PSGChanWidth+PSGChanWidth/2,-(sp) 
move.w#PSGInitY+PSGHeight+PSTxtSize r ’{sp) 

_MoveTo 

move.w#*2’,-<sp) 

_DrawChar 

move.w#PSGinitX+2*PSGChanWidth+PSGChanWidttV2,*(sp) 

move.w#PSG!nitY+PSGHeight+PSTxtSize,*(spJ 

_MoveTo 

move.w#'3\-(sp) 

_DrawChar 

move. w#PSGInitX+3*PSGChanWidth+ PSGChan Width/2, -{sp) 
move.w#PSGInitY+PSGHeight+PSTxtSize,-(sp) 

_MoveTo 

move.w#'4\-(sp) 

_DrawChar 

move,w#PSGInitX+(CHANNEL$/2) # PSGChanWidth-25,-(sp) 

move.w#PSGInilY+PSGHeight+2*PSTxtSize,-(sp) 

_MoveTo 
pea 'Channel' 

_DrawString 

move.w#PSGInitX-20,-(sp) 

move.w#PSG[nitY+PSGHeight/2-PSTxtSize,-(sp) 

_MoveTo 
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pea ‘dB‘ 

_DrawString 

move.w#PSGInitX*24,-{$p> 

move.w#PSGInitY+PSGHeight/2,-{sp> 

_McveTo 
pea ’SPL* 

_DrawString 

mova.w#9,-<sp) 

_TextSize 

move.w#PSGInitX-9,-{sp) 

rr»ve.w#PSGImtY+P$GHeight t -{sp) 

_Mov«To 

move.wif'OVfsp) 

_OrawChar 

move.w#PSGInitX-20,-(8p) 
move .w #PSGlnitY + 9, -{sp) 

_MoveTo 

pea *1 20’ 

_DrawSlring 
Now draw the chart. 

_PenNormal 

pea WDHAPSChart 

_FrameRect 

mqve.w#PSCInitX,-(sp} 

move.w#PSCInitY+rPSCFHeighM*P> 

_MoveTo 

move.w#PSCInitX+PSCWidth,-(sp) 

move.w#PSCInitY-»-rPSCFHeight,-(sp) 

_LineTo 

move.w#PSCInitX,-(sp) 

move.w#PSC}nitY+2*PSCFHeight 1 -(sp) 

_MoveTo 

mave.w#PSC)nitX+PSCWidth.-(sp) 

move.w#PSCInitY>2*PSCFHeight,-(sp) 

_LineTo 

mov8.w#PSClnitX,*(sp) 

move. w#PS ClnitY+3*PS CFHeigh 1, -(sp} 

_MoveTo 

move.w#PSCInitX+PSCWidth,-(sp) 

nnove.w#PSCInitY+3“PSCFHeight*{sp) 

JJneTo 

move.w#PSCImtX,-(sp) 

move.w#PSClnitY-*~4*PSCFHeight,-(sp> 

_MoveTo 

move.w#PSClritX+PSCWidth,-(sp) 

move.w#PSCInitY+4*P$CFHeight.*{sp) 

JJneTo 

move.w#PSC1nitX+PSCFWidth,-(sp) 

move.w#PSCJnitY.-{sp) 

_MoveTo 

rnove.w#PSCInitX+PSCFWidth.-(sp) 

move.w#PSCInitY+PSGHeight,-(sp) 

JJneTo 

move.w#P$ClmtX-f2"P$CFWidth,-(sp) 
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move.wtfPSCInitY.-lsp) 

_MoveTo 

move.w#PSC lnitX+2*P SCF Width, -{sp) 
move.w#PSCInitY+PSGHeight,-(sp) 

JJneTo 

move.w#PSCinitX+6,-(sp) 

mova.w#PSCInitY+PSCFHeight-6,-(sp} 

_MoveTo 
pea 'Channel' 

JDrawString 

move.w#PSCInitX+PSCFWidth+1 1 ,-(sp) 
move.w#PSCInitY+PSCFHeight-6,-(sp) 

_MoveT o 
pea ’Gain' 

_DrawString 

mov0.w#PSCInitX+2*PSCFWidth+1O,-(sp) 

move.w#PSCInitY+PSCFHeight-6,*(sp) 

_MoveTo 
pea ’Limit' 

_DrawString 

mova.w#CHANNELS,d4 ; Now draw tha chart data with PrintVal 
tea Theta3,a0 ; will draw the gains and limits too 

DrChartNums: 

; Draw channel # 

move.w#0,-(sp} ; Column 0 

move.wd4,-(sp) ; Row is same as channel 

mova.wd4,-(sp) ; value is channel 

. bsr PrintVal 

; Draw gain 

move.w#1 ,-<sp) ; now do gain 

move.wd4.*{sp) ; Row is same as channel 

move.w(a0),-(sp) ; Show the theta value as gain 
bsr PrintVal 

; Draw limit 

move.w#2,>(sp) ; now do limit 

move.wd4,-(sp) ; Row is samB as channel 

move.w2(a0),-(sp) ; Show the Phi value as limit 

bsr PrintVal 

lea -4(aO),aO 

sub.w #1,d4 

bne DrChartNums 

; Draw the control buttons. 

move. I WDHAPSPtr.-(sp) ; the window ptr 

_DrawControls 

bsr WDHAPSSetParam ; update the WDHA. 

movem.l (sp}+,d0*d7/a0'a6 ; restore registers 

rts 

; Name: PS Add Con trots 

; Function: This routine adds the PS window's controls. 

; Input: None 
: Output: None 
PSAddControls: 

movem.l d0-d7/ad-a6,-(sp) ; save registers 
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Set up the controls bounding rectangle, 
tea TRect, a4 

move.w#PSCttlnitY+0*PSCtfFHeight,(a4) ; store y coord 
move.w#PSCtJlnitX,2(a4) ; store x coord 

move.w#PSCtllnitY+0*PSCtlFHeight+20,4{a4) ; store y coord 

move.w#PSflight,6(a4} ; store x coord 

Push parameters for NewControl 

clr.l -(sp) ; NewControl returns a handle 

move. I WOHAPSPtr,-{sp) ; the window ptr 


pea TRect ; the rectangle bounding the control 

pea Hearing Aid On' ; title 

move.b #TRUE.-(sp) ; visible 

move.w#0,-(sp) ; value 

move.w#0,-(sp} ; min 

mave.w#1 ,-(sp} ; max 

move.w#t ,-(sp) ; check box proc id 

move, l #O r -{sp) ; refcon not used 

; Call NewControl 

^NewControl 

(ea AidControl,a3 

move. I |sp)+,(a3) ; store the result 

Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#PSCtllnitY*1 *PSCtlFHeight.(a4) ; store y coord 
move.w#PSCtllnitX,2(a4) ; store x coord 

move. w#PSCtllni!Y+1*PSCt!FHeighU20,4{a4) ; store y coord 

move.w#PSRighl,6(a4) ; store x coord 

Push parameters for NewControl 

clr.l -{sp) ; NewControl returns a handle 

move. I WDHAPSPtr,-{sp> ; the window ptr 


; check box proc id 
; refcon not used 


store the result 


pea TRect ; the rectangle bounding The control 

pea 'Input Attenuation* ; title 

move.b #TRUE,-{$p) ; visible 

move.w#0,-(sp) ; value 

move.w#0,-(sp} ; min 

move.w#1 ,-(sp) ; max 

move.wil ,-(sp) ; check box proc id 

move.l #0,-(sp) ; refcon not used 

Call NewControl 

^NewControl 

lea IAControl,a3 

move.l (sp)+,(a3) ; store the result 

Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#PSClllnitY+2*PSCtiFHeight,(a4) ; store y coord 
move.w#PSCtllnitX,2(a4) ; store x coord 

move.w#P$Ct!1nitY+2'PSCtlFHe*ght+20,4{a4) ; store y coord 

move.w#PSRight,6{a4) ; store x coord 

Push parameters for NewControl 

clr.l -<sp) ; NewControl returns a handle 

move.l WDHAPSPtr,-(sp} ; the window ptr 

pea TRect ; the rectangle bounding the control 

pea ‘Output Attenuation' ; title 

move.b #TRUE,~{sp) ; visible 


check box proc id 
refcon not used 


store the result 
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move.w#Q,*(sp) ; value 

move.w#0,-(sp) ; min 

move.w#t ,*(sp) ; max 

move.w#1,*{sp) ; check box proc id 

move.l #0,-(sp) ; refcon not used 

Call NewControl 
^NewControl 

lea OAControl,a3 

move. I (sp)+,(a3) ; store the result 

Set up the controls bounding rectangle, 
lea TRect,a4 

move.w#PSCtllnitY+3"PSCtiFHeight,(a4) ; store y coord 
move.w#PSCtllnitX,2(a4) ; store x coord 

move.w#PSCtnnitY+3*PSCtlFHeight+2<M<a4) ; store y coord 

mave.w#PSRight,6(a4) ; store x coord 

Push parameters for NewControl 
clr.l -(sp) 

move. I WDHAPSPtr.-(sp) 
pea TRect 

pea 'Field Mike 1 

move.b #TRUE,-{sp) 
move.w#1 ,-fsp) 
move.w#a,-(sp) 
move. w#l ,-(sp) 
move.w#2,-(sp) 
move. I #0,-(sp) 

Call NewControl 

^NewControl 

lea FieldControl,a3 

move. I (sp)+ r (a3) 

Set up the controls bounding rectangle, 
lea TRect,a4 

move.w#PSCtllnitY+4’PSCtlFHeight,(a4) ; store y coord 
move.w#PSCtllnitX,2(a4) ; store x coord 
move.w#PSCtllnitY+4*PSCUFHeight+20,4(a4) 


; NewControl returns a handle 
the window ptr 

; the rectangle bounding the control 
; title 


visible 


make Field mike on as the default 

min 

max 

radio button proc id 
refcon not used 


Store the result 


move.w#PSRlght,6(a4) 

Push parameters for NewControl 
clr.l -(sp) 

move. I WDHAPSPtr.-(sp) 
pea TRect 

pea 'Probe Mike’ 

move.b #TRUE,-(sp> 
move.w#0,*(sp) 
mave.w#0,-(sp) 
rnove.w#! ,*(sp) 
mova.w#2„-(sp) 
move.l #0,-(sp) 

Call NewControl 

^NewControl 

lea ProbeControl,a3 

move.l (sp)+,(a3) 
movem.l (sp)+.d0-d7/a0-a6 

rts 


store y coord 


store x coord 


; NewControl returns a handle 
the window ptr 

; the rectangle bounding the control 
; title 


visible 


value 
: min 
; max 

radio button proc id 
; refcon not used 


store the result 


69 



89 


5 , 706.352 


90 


; CalThetaRect emulates the rectangle surrounding the control bar for the 

; given channel. 

; Input: the channel # (a word) is passed on the stack. 

; Output: the reel TRect is filled. 

CalThetaRect: 

movem.l d0-d7/a0*a6,-(sp) 

lea TRect, a 4 ; get address of TRect 

move.w#PSGInitY+PSGHeight,d4 ; bottom of graph 

mcve.wd4,4(a4) ; stone It in TRect 

tea Theta0,a3 ; Get theta 

move.w64(sp),d3 ; Get channel number 

asl.w #2,d3 ; *4 

sub.w (a3,d3.w),d4 ; compute top of bar y coord 

move.wd4,(a4) ; store it in TRect 

move.w64{sp),d3 ; Get channel number 

mulu #P$GCh an Width, d3 ; channel # * Chan Width 

add.w #PSGlnitX,d3 ; move over 

move.wd3,2(a4) ; store left side 

add.w #PSGChanWidth T d3 ; add width 

move.wd3,6(a4) ; store right side 

pea TRect 

move.w#l ,-(sp) 

move.wtfl ,-{sp) 

JnsetRect ; make it a tad smaller 

sub.w #1 ,{a4) ; not the top level though 

movem.l (sp)+,dO*d7/aO*a€ 

move.) (sp),2(sp) ; move return address over param 

tst.w (sp)+ ; get rid of parameter 

rts ; and return 

; CalPhiRect clculates the rectangle surrounding the control bar for the 

; given channel. 

; Input: the channel # (a word) is passed on the stack. 

; Output: the rect TRect is filled. 

CalPhiRect: 

movem.l d0-d7/a0-a6,-{sp) 

lea TRect,a4 ; get address of TRect 

move.w#PSGInitY,d4 ; top of graph 
move.wd4,(a4) ; store it in TRect 
lea PhiQ,a3 ; Get Phi 

move.w64(sp),d3 ; Gat channel number 

asl.w #2,d3 ; *4 

move.w#1 20. dS 

sub.w (a3,d3.w),d5 ; compute bottom of bar y coord 

add.w d5.d4 

move.wd4,4(a4) ; store it in TRect 

move.w64(sp),d3 ; Get channel number 

mulu #P SGCh an Width ,d3 ; channel at ' Chan Width 

add.w #PSGlni1X,d3 ; move over 

move.wd3,2(a4) ; store left side 

add.w #PSGChanWidth,d3 ; add width 

move.wd3,6(a4) ; store right side 

pea TRect 

move.w#1 , - ( s p) 
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move.w#1 ,-(sp) 

_lnsetRect ; make it a tad smaller 

add.w #1 ,4(a4) ; not the bottom though 

movem.l (sp)+,dO-d7/aQ-a6 

moveJ (sp),2(sp) ; move return address over pa ram 

tst.w (sp)+ ; get rid of parameter 

rts ; and return 


: Name: PrintVal 

; Function: This routine prints the given value at the specified row and 
; column of the PSChart. 

; Input: d3 {word} - value, d4 - row, d5 - column 

; Output: None 

PrintVal: 

mavem.l d0-d7/a0-a6,-(sp) 

move.w64(sp),d3 
move.w66{sp),d4 
move.w68(sp),d5 
; compute x coord 

mulu #PSCFWidth,d5 ; column * width of each field 

add.w #PSCtnitX+24,d5 ; shift over 
; compute y coord 

add.w #l,d4 ; add 1 to row 

mulu #PSCFHeight,d4 ; • height of each field 


save registers 
d3 a value to be printed 
d4 = Row in chart 
d5 » column in chart 


add.w #P$ClnitY-6,d4 
; erase whatever is there already, 
lea TRect,a2 

move.wd5,2(a2) 
move.wd5.6(a2) 
add.w #20,6(a2) 
move.wd4,4(a2) 
move.wd4,(a2) 
sub.w #PSTxtSize,(a2) 
pea TRect 

_EraseRect 
; move there 

move.wd5 r -{sp) 

move.wd4,'{sp) 

_MoveTo 

: convert value to string 

move wd3,d0 ; NumToString expects val in dO 

lea NumBuf.aO ; address of NumBuf in aO 

move.w#0,-(SP) ; Select NumToString 

Pack7 


: shift down and then up a little 

; we'll put it in Trect 
; our x is the left x 
; then compute the right 
; as 20 over from the left 
; our y is the bottom y 
; then compute the top 
; as TxtSize up from bottom 
; now erase it 


pea NumBuf 

_D rawString 

movem.l (sp)+,d0-d7/a0*a6 

move. I {sp),6(sp) ; move return address over parameters 

add.) #6,sp ; get rid of parameters 

rts 


Name: WDHAPSIS 

Function: This routine returns a Boolean telling whether or not 
the given window pointer is the PS window's pointer. 
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Input: A window pointer (passed on the stack) 

Output: a word, TRUE or FALSE (defined in WDHA.hdr) returned on the stack. 
~Note: You do not have to push a word for the result of this routine. 


WDHAPSIS: 


movem.l 

a4/d4,-(sp) 

; save registers 

move.l 

8(sp),a4 

; get return address in 

move.l 

1 2(sp).d4 

; get WindowPtr in d4 

cmp.l 

WDHAPSPtr,d4 

; Was it our window? 

beq 

IS10 

; It Is 

move.w 

#FALSE,14(sp) 

; save result 

bra 

IS20 


move.w 

#TRUE,14(sp) 


move.l 

a4, 1 0(sp) 

; put return address back 

movem.l 

(sp)+,a4/d4 

; restore registers 

tst.w 

(sp} + 

; get rid of extra two bytes 

rts 


; return 

WDHAPSControl 



IS1Q: 

IS20: 


Function: This routine should be called whenever a mousedown event occurs 
within the contents of the PS Window. It handies the flighting of the 
proper control buttons, and sends the proper records to the WDHA. 

Input: The mouse location (on the stack), Irom the event's where field, 

Output: None 
WOHAPSContral: 

movem.l d0-d7ya0-a6,-(sp) 

move. I WDHAPSPtr, -(sp) ; WDHAPSPtr on stack 

; PROCEDURE SetPort (gp: GrafPprt) 

SetPort : Make sure it's the current 


port 


pea 64 (sp) 
jSlobalTo Local 
; Was it in a control button? 
ButtonCheck: 

; call FindControl 

clr.w -{sp) 
move. I 66(sp),-(sp) 
move.l WDHAPSPtr, -(sp) 
pea WhichControl 

^FindControl 
tst.w (sp)+ 

lea WhichControt,a4 

tst.l (a4) 

beq ChanCheck 

; if it was in a control, call TrackControl 
clr.w -(sp) 

move.l WhichControl, -(sp) 
move.l 70(sp),-(sp) 
move.l #0.-(sp) 

^TrackControl 
tst.w ($p)+ 
beq NoChan 

; Was it the output Attenuation button? 

lea WhichControl,a4 


; push address of point 
; convert it to the window's coords 


; returns a long 
; push point in local coords 
; WDHAPSPtr on stack 
; which one? 

; pop result 

; Was it in any of them? 
; if not try the graph 

; returns a word 

; WhichControl now has the handle 
; starting point 

; no action proc 

; did they change the button? 

; if not then leave 
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move. I OAConlroi,d4 
cmp.l (a4),d4 

t>ne NotOA ; if not then was it the tA button? 


; It was the output attenuation button so adjust the bar heights. 


clr.w d3 

lea Theta0.a3 

CGLoopt 1 : 

cmp.w #CHANNELS,d3 

beq InvBut 

clr.w -(sp) 

bsr QOLTT 

move.w(a3),d0 

sub.w (sp),dO 

move.wdO t (a3) 

move.w2(a3),d1 

sub.w (sp)+ f dl 

move.wdt ,2(a3) 

fea 4{a3),a3 

add.w #t,d3 

bra CGLoop1 1 

InvBut; 

clr.w -(sp) 
move.) OAControi,*(sp) 
jSetCttVaiue 
move.w(sp)+,d3 
not.w d3 
and.w #l,d3 
move. I WhichControl,-(sp) 
move.wd3,-(sp) 
SetCtIVaiue 


; use d3 as a channel counter 


; get Theta in dO 

; subtract the old GOUT from Theta 
; store Theta 

; get phi in dt 

; subtract the old GOUT from Phi 
; store phi 


; GetCt IValue returns a word 


; now value is in d3 
; invert the status. 

; set it to the new value. 


clr.w d3 

lea Theta0,a3 

CGLoop12: 

cmp.w #CHANNELS,d3 

beq UDScreen 

clr.w -(sp) 

bsr GOUT 

move.w(a3),d0 

add.w (sp),d0 

move.wd3,*(sp) 

move.wdQ,-(sp) 

bsr VaiidGatn 

move.w{sp)+,(a3) 

move.w2(a3|,d1 

add.w (sp)+,d1 

move.wd3,-(sp) 

move.wdl ,-(sp) 

bsr ValidUmit 

move.w(sp)+,2(a3) 

fea 4(a3),a3 

add.w #1 ,d3 


; use d3 as a channel counter 


; get Theta in dO 
; add the new GOUT 

; now clip the gain as necessary 
; the new gain 

; store it 
; get phi in dl 
; add the new GOUT to Phi 
; now clip the limit as necessary 
; the new limit 

; store phi 
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bra CGloopl2 

NotOA: 

move.! IAControl.d4 
lea WhichControl.a4 

cmp.i (a4),d4 
bn e OtherBut 

; It was the input attenuation button so adjust 
clr.w d3 

laa Thata0.a3 

CGLoop21 : 

cmp.w #CHANNEI_S,d3 
beq lnvBut2 

clr.w -<sp) 
bsr GIN 

; the gain (the limit is not affected) 
move.w(a3),d0 
sub.w (sp)+,d0 
move.wd0,{a3) 

; go to the next channel 

lea 4(a3),a3 

add.w #1,d3 

bra CGLoop21 


lnvBut2: 

clr.w *(sp) 
move.! IAControl,*(sp) 

_GetCtl Value 

mave.w(sp)+,d3 

not.w d3 

and.w #1,d3 

move. I WhichControf,-(sp) 

move.wd3,-(sp) 

_SetCtlVaiue 

clr.w d3 

lea Theta0,a3 

CGLocp22; 

cmp.w #CHANNELS,d3 

beq UDScreen 

clr.w *(sp) 

bsr GIN 

move.w(a3),d0 

add.w (sp) + ,dO 

move.wd3,-{sp) 

move.wd0,*(sp) 

bsr VatidGain 

move.w<sp)+,(a3) 

; go to the next channel 

lea 4(a3},a3 

add.w #1,d3 

bra CGLoop22 

UDScreen 

bsr WD HAPS Draw 


; if not then forget it. 

the bar heights. 

; use d3 as a channel counter 


; get theta 

; subtract the old GIN 
; store it back 


; GetCtlVafue returns a word 

; now value is in d3 
; invert the status. 

; set it to the new value. 

; use d3 as a channel counter 


; get theta 

; add the new GIN 
; now clip the gain as necessary 
; the new gain 

; store it 
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bra NoChan 

; invert the control value 
OtherBut: 

clr.w «{sp) 

move. I WhichControl t -{sp) 

_GetCtl Value 

move.w(sp)+,d3 

not.w d3 

and.w #t,d3 

move.l WhichControl,-(sp) 

move.wd3,-(sp) 

_SetCtlValue 
; Was it the Field button? 

move.l FieldConlrol,d4 
lea WhichControi,a4 

cmp.l (a4),d4 
bne NotField 

; Otherwise invert off the Probe mike 
clr.w ~(sp} 

move.l ProbeControl,-{sp) 

.GetCtlValue 

move.w(sp)+,d3 

not.w d3 

and.w m,d3 

move.l ProbeControl,-{sp) 

move.wd3,*(sp) 

_SetCtlVaiue 
bra NoChan 

; Was it the Probe button? 

NotField: 

move.l ProbeControl.d4 
lea WhichControl,a4 

cmp.l {a4),d4 
bne NoChan 

; Otherwise invert the Field mike 
clr.w *{sp) 
move.l FieldControl,-{sp) 
^GetCtlValue 
move.w(sp)+,d3 
not.w d3 
and.w #1,d3 
move.l FieldControl,'(sp) 
move.wd3,-{sp) 

_5etCtlValue 
bra NoChan 

ChanCheck: 

move.w#0,d4 
lea Theta0,a4 

FindChan: 

cmp.w #CHANNELS,d4 
beq NoChan 

; Is it a theta bar? 


; GetCtl Value returns a word 

; now value is in d3 
; invert the status. 

; set it to the new value. 

; if nol then forget it 
; GetCtlValue returns a word 

; now value is in d3 
; invert the status 

; turn off Probe button 


; if not then forget it 
; GetCtlValue returns a word 

; now value is in d3 
; invert the status 

; turn off Probe button 


; court thru channels 

; draw each channel 
; done yet? 
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move.wd4,-(sp) 
bsr CalThetaRect 

clr.w -(sp j 
move.l 66(sp) ,-(sp) 
pea TRect 
_PtinRect 
ist.w (sp)+ 
bne FoundTheta 

; Is it a phi bar? 

iea 2<a4),a4 

move.wd4,-(sp) 
bsr CalPhiRect 
clr.w -(sp) 
move. I 66{sp),-(sp) 
pea TRect 
_PtlnRect 
tst.w (sp)+ 
bne FoundPhi 
lea 2(a4),a4 

add.w #l,d4 
bra FindChan 

; a4 points to Thata, d4 contains the channel number 
FoundTheta: 

pea ThetaPat 

_PenPat 

move.w(a4),d3 ; hold onto original theta 

; While the button is down move the bar around, changing theta 
FTLoop: 

clr.w -(sp) : Wake room for result 

_StillDown ; Is the button still down? 

tst.w (sp)+ 

beq NoChan ; If not then exit otherwise... 

; Get the point 

pea TPoint 

J3et Mouse ; Get mouse location 

; First Erase Old Bar 

move.w#patBic.-<sp) 

_PenMode 
move.wd4,*(sp) 
bsr CalThetaRect 

pea TRect 

_PaintRect 

; Now change the theta parameter 

move.w64(sp),d5 ; the vertical coordinate of start point 

sub.w TPoint,d5 ; original y - current y 

; this will be a negative value if they move down 

move.wd3,(a4) ; restore original theta 

add.w d5,(a4) ; change theta 

; te it OK? 

move.wd4,-($p) ; channel # 

move.w(a4),-(sp) : gain 

bsr VaJidGain ; make sure gain is in range 

mova.w(sp)+,(a4) 


Calculate theta rectangle 
make room for result 
push mouse point 
theta rect in TRect 


; Calculate theta rectangle 
; make room for result 
; push mouse point 
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; Now draw the new bar 
ThDrBar: 

move.w#patOr,-{sp) 

_PenMode 
move.wd4,-(sp) 
bsr CalThetaRect 

pea TRect 

^PaintRect 

; Now update the chart value. 

cmp.w (a4),d3 ; is there an/ difference? 
beq FTLoop ; (f not then don't bother 

move.w#1 ,*{sp) ; gain column in chart 

move.wd4,-{sp) ; row is channel # 

add.w #1 ,(sp) ; + 1 
move,w(a4).-(sp) ; value 

bsr PrintVal 

bra FTLoop 

; a4 points to Phi, d4 contains the channel number, 

FoundPhi: 

pea Phi Pat 

_PenPat 

move.w(a4),d3 ; store old Phi 

■ While the button is down move the bar around, changing theta 
FPLoop: 

clr.w -<sp) ; Maks room for result 

_SttllDown ; Is the button still down? 

tst.w (sp}+ 

beq NoChan ; It not then exit otherwise... 

; Get the point 

pea TPoint 

jSetMouse ; Get mouse location 

; First Erase Old Bar 

move.w#patBic,-{sp) 

_PenMode 
move.wd4,-(sp) 
bsr CalPhiRect 

pea TRect 

_PaintRect 

; Now change the Phi parameter 

move.w64{sp),d5 ; the vertical coordinate of start point 

sub.w TPoin!,d5 ; original y - current y 

; this will be a negative value if they move down 

move.wd3,(a4) ; restore onginal Phi 

add.w d5,(a4) ; charge Phi 

; Is it OK? 

move.wd4,-(sp) ; channel # 

move.w(a4),~(sp) ; limit 

bsr Valid Limit ; make sura limit in range 

move.w(sp)+,(a4) 

; Now draw the new bar 
PhiDrBar: 

; Now draw the new bar 

move.wtfpatOr,-(sp) 
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_PenMode 
move.wd4,-(sp} 
bsr CalPhiRect 

pea TRect 
_PaintRecl 

; Now update the chart vaJue. 

cmp.w (a4),d3; is there any difference? 
beq FPLoop ; If not then don’t bother 

move.w#2,-(sp) ; limit column in chart 

move.wd4,*(sp) ; raw is channel # 

add.w #t ,(sp) ; + t 
move.w(a4),-(sp) ; value 

bsr PrintVal 

bra FPLoop 

NoChan: 

_PenNormal 

bsr WDHAPSSetParam ; update any changes made to the WDHA. 

movem.t (Sp)*,d0-d7/a0-a6 

move.) (sp)+,{sp) ; get rid of param 

rts 

; Name: WDHAPSSetParam 

; Function: This routine sets the WDHA to the parameters set in the WDHA 
; window. 

; Input: None 
; Output: None 
WDHAPSSetParam: 

movem.t dO-d7/aO-a6.-(sp) ; save registers 

; Fill ait fields of the paramrec except the gain/input select word. 

bsr CatcGainsLimils ; calculate the gains and limits. 

: Now calculate the select word by looking at the control buttons. 

lea paramrec,a4 ; get the gain/input select word 

move.wl 6(a4),d4 ; get the gam input select word 

SPIA: ; set input attenuation bit 

clr.w -(sp) ; GetCtIValue returns a word 

move. I IACon1rol,-(sp) ; the handle 
_GetCtlValue 
tst.w (sp)+ 
beq SPNolA 

SPDolA: 

bset.l #INPUT,d4 
bra SPOA 

SPNolA: 

bclr.f #INPUT,d4 

SPOA; ; set output attenuation bit 

clr.w -{sp} ; GetCtIValue returns a word 

move. I OAControl.-(sp) ; the handle 

_GetCttValue 
tst.w (sp)+ 
beq SPNoOA 

SPOoOA: 

bset.l #OUTPUT,d4 
bra SPField 

SPNoOA: 
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bclr.l #OUTPUT,d4 

SPField: 

clr.w -(sp) 
move.l FieldControl.-(sp) 
^GetCtIValue 
tst.w (sp) + 
beq SPNoFteld 

SPDoField: 

bset.l #FIELD,d4 
bra SP Probe 

SPNoField: 

bclr.l #FIELD,d4 
SPProbe: 

clr.w -{sp) 

move. I ProbeControl,-(sp) 

.GetCtIValue 

tst.w (sp)+ 

beq SP No Probe 

SPDoProbe; 

bset.l #PROBE,d4 
bra SPSendParams 

SPNaProbe: 

bclr.l #PROBE,d4 
SPSendParams: 

move.wd4,16(a4) 


; set the Held mike bit 
; GetCtIValue returns a word 
; the handle 


; set the probe mike bit 
; GetCtIValue returns a word 
; the handle 


; store the modified select word, 


; Now send the parameters to the WO HA 
lea paramrec.aO 

bsr SetParam 

; now wait a little while the WDHA does it’s thing, 
move.l #10000,dt 

SPWait: 


sub. I #1,d1 

bne SPWait 

Now put the WDHA in either hearing aid state or idle state depending on 
the status of the "Hearing Aid On" button. 

; GetCtIValue returns a word 


clr.w *(sp) 
move.l AidControl.-(sp) 
J3etCtJVaiue 
tst.w (sp) + 
beq SPAidOff 

move.w#-i ,d0 
bra SPSetMode 

SPAidOff: 

move.w#-1 00,d0 
SPSetMode: 

jsr scsiwr 


the handle 


go to hearing aid mode 


; go to idle mode 
;send mode code to WDHA 


SPDone: 

movem.l (Sp)+,d0-d7/a0-a6 ; restore registers 

rts 

; Name: CalcGainsLimits 

; Function: Compute the gains and timits fields of the paramrec from 
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the heights of the theta and phi bars of the bar graph, and the status of 
the attenuation control buttons. 

Input: None 
Output: None 

If any of the gains or limits produce an out of range value the 
variable called 'Clipped' will have a non-zero value upon return. 
Dale Gal ns Limits: 

a0-a6/d0-d7,-(sp) 

Clipped, al 


movem 
lea 
clr.w 
lea 
lea 
lea 


(al) 


Theta0 r a4 

paramrec,a2 

He,a3 


thetaO here 


move.w#CHANNELS,d6 


OCLoop: 

move.w (a4),d4 
sub.w (a3),d4 
sub.w 8(a3),d4 
sub.w #60, d4 
clr.w -(sp) 
bsr GIN 

sub.w (sp)+.d4 
clr.w -(sp) 
bsr GOUT 

sub.w (sp)+,d4 
; Now calculate the limit 
Delimit: 

move.w2(a4),d5 
sub.w d4,d5 
sub.w S(a3),d5 
clr.w -(sp) 
bsr GOUT 

sub.w (sp)+.d5 
; Now convert bath to linear. 

: First the gain 
ToLinear: 

; but first store Gd and Ld 

move.w d4,(a6) 

move.w d5,2(a6) 

lea 

move.w d4,(a0) 

pea 
pea 
FI2X 
pea 
pea 
fdivx 
pea 
fexpx 
pea 
pea 
fmulx 
pea 
pea 


; gainO here 

; loop through four channels 

; get thetaO (= So) 

; subtract He 

; subtract Hr 

; subtract GIN 


; subtract GOUT 


; Get height (-So lim) in d5 
; Subtract Gd 

: subtract Hr 
; subtract GOUT 


; store Gd 

; store Ld 

; store gain (dB) in argl 


argl ,a0 


argl 

arg4 

fp20dBe 
arg4 


arg4 


dB gain 
fpdB gam 

convert from integer to extended fp 
20 * log base 10 of e — 8.685889638 
;fpdB gain 
;db/fp20dbe (result in arg4) 


;base e exponential (db ratio in arg4) 
twoexl 4 ; scale it '2E1S to convert it to fixed point 

arg4 


arg4 

argl 
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f x 2 1 .convert extended to 

move.warg1.(a2) ; store the gain 

move.warg1,d1 ; get the gain 

cmp.w #1 6384, dl 
bis DCDoLimit 

move.w#1 6384,(a2) ; store the gain 

lea Clipped.al 

add.w #1,(al). 

; Now the limit 

DCDoLimit: 


integer 


lea 


argl.aO 

move.w 

<15, (a0) 

; store limit (dB) in argl 

pea argl 


;dB limit 

pea &rg4 


;fpdB limit 

F12X 


;convert from integer to extended fp 

pea fp20dBe 

,20 a log base 10 of e * 8.885889638 

pea arg4 


;fpdB limit 

fdivx 

;db/fp20dbe (result in arg4) 

pea arg4 



fexpx 

;base e 

exponential (db ratio In arg4) 

pea arg4 



pea argl 



pea twoex14 

;scale it *2&16 to convert it to fixed point 

pea arg4 



fmulx 



fx2i 


;convert extended to integer 

move.wargl ,2(a2} 

; store the limit 

bpl 

DCFmLoop 

move.w#32767,2(a2) 



Store them in Ibe paramrec 


DCFinLoop: 

lea 

4(a4),a4 

lea 

4(a2),a2 

lea 

2(a3),a3 

subq,b #l,d6 
bne 

DCLoop 

movem.l 

(sp)+,aO-a6/dO‘d7 

rts 



go to next theta/phi pair, 
go to next gain/limit pair 
go to next He and Hr 


; Name: GIN 

; Function: This routine returns the input gain as determined by the 
; input attenuation control button, either +0 (on), or +18 (off). 

; Input; None 

; Output: A word on the stack is filled with the result (the user pushes this) 
GIN: movem.l a0-a6/d0-d7,-(sp) 

; if input attenuation is on then return 0 otherwise 18 

cfr.w -(sp) ; make room for result 

move.l IAControl,-(sp) 

_GetCtlValue 

tst.w (sp)+ 

bne GinOn 

move.w#l8,64{sp) 

bra GinDone 

GirOn 
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move.w#0.64(sp) 

GinOone 

movem.l (sp)+,a0-a6/d0-d7 

rts 

; Name: GOUT 

; Function: This routine returns the output gain as determined by the 
; output attenuation control button, either -34 (on), or -9 (off). 

; Input: None 

; Output: A word on the stack is filled with the result (the user pushes this) 
GOUT: movem.l a0-a6/d0-d7,-(sp) 

; if output gain is on then return -34 otherwise -9 

clr.w -(sp) : make room for result 

move. I OAControl.-(sp) 

_GetCtl Value 

tst.w (sp)+ 

bne GoutOn 

move.w#-9,64(sp) 

bra GoutOone 

GoutOn 

move.w#-34,64(sp) 

GoutDone 

movemJ (sp)+,aG-a6/dO-d7 

rts 

; Name: GMAX 

; Function: This routine returns the maximum gain for the given channel 
; Input: The channel number is passed on the stack as a word (0-3). 

; Output: The result is on the stack upon return. 

; ••'Note: You do not have to make room for the result on the stack. 
GMAX: 

movem.l a0-a6/d0-d7,-(sp) 

move.w#60,d0 ; hold result in do 

clr.w -(sp) 

bsr GIN 

add.w (sp)+,dO ; add GIN 

clr.w -(sp) 

bsr GOUT 

add.w (sp)-f.dO ; add GOUT 

lea He,a0 

move.w64(sp),dt ; get channel # 

asl.w #1,d1 ; *2 lor words 

add.w (aO,dl.w),dO ; add He 

add.w 8(aO r dt.w),dO ; add Hr 

move.wd0,S4(sp) ; write the result over the parameter 

movem.l (Sp)+,a0-a6/d0-d7 

rts 

; Name: ValidGam 

; Function: This routine clips the given gain (bar height) as needed for the 
given channel. 

; Input: The channel number and gain passed on the stack as words. 

; Output: The result is on top of the stack upon return. 

; ‘—Note: You do not have to make room for the result on the stack. 
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ValidGain: 

movem.l a0-a6/d0-d7,-(sp) 

move.w66{sp),d0 ; get the channel # 

move.w64{sp),d1 ; get the undipped gain 

cmp.w #2,d1 ; IS it bigger than the minimum height? 

bge GainOKl 

move.w#2,d1 ; make it bigger 

bra VGOone 

GainOKl; 

move.wd0,*{sp) ; get GMAX 

bsr GMAX 

cmp.w (sp)+,di 
ble VGDone 

move.w-2(sp),d1 ; make it GMAX 

VGDone: 

move.wdt,66(sp) 

movem.t (Sp)+,a0-a6/d0-d7 

move.! (sp),2(sp) ; move return address 

tst.w (sp)+ ; get rid of extra word 

rts 

; Name: LMAX 

; Function: This routine returns the maximum limit for the given channel. 

; Input: The channel number is passed on the stack as a word (0-3). 

; Output: The result is on the stack upon return. 

; # **Note: You do not have to make room for the result on the stack. 
LMAX: 

movam.l aO-a6/dO-d7,-(sp) 

clr.w -(sp) 
bsr GOUT 

move.w{sp)+,d0 ; add GOUT 

lea Hr.aO 

move.w64(sp).dl ; get channel # 

asl.w #1,d1 ; *2 for words 
add.w (a0,d1.w),d0 ; add Nr 

mave.wd0,fi4(sp) ; write the result over the parameter 

movem.l (Sp) + ,a0-a6/d0-d7 

rts 

; Name: ValidLimft 

; Function: This routine dips the given limit (bar height) as needed for the 
; given channel. 

; Input: The channel number and gain passed on the stack as words. 

; Output: The result is on top of the stack upon return. 

; **“Note: You do not have to make room for the result on the stack. 
ValidLimit: 

movem.l a0-a$/d0-d7,-(sp) 

move,w66(sp),dQ ; get the channel # 

move.w64(sp),d1 ; get the undipped limit 

cmp.w #2,d1 ; IS it bigger than the minimum height? 

bge LimitOKI 

move.w#2,d1 ; make it bigger 

bra VLDone 

LimitOKI : 
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move.wdQ,-($p) ; get LMAX 

bsr LMAX 

cmp.w (sp)+,d1 
bid VLDona 

move.w-2(sp},d1 ; make it LMAX 

VLDone: 

move.wdl ,66(sp) 

movem.l (sp) + ,aO-a6/dO-d7 

move. I (sp),2(sp) ; move return address 

tst.w <sp) + ; get rid of extra word 

rts 



-WDHAPS data declarations 

.align 4 

; align to tong word boundary 

WDHAPSPtr: 

DC.L 

0 

; WDHAPS WindowPtr 

AidControl: 

DC.L 

0 

; Hearing Aid On Control 

lAControl: 

DCJ_ 

0 

; Input Attenuation Control 

OAControl: 

DC.L 

0 

; Output Attenuation 

FieidControl: 

DC.L 

0 

; Field Mike Control 

ProbeControl: 

DC.L 

0 

; Probe Mike Control 

.align 2 

; aiign to word boundary 

ThetaO: DC.W 

50 



PhiO: DC.W 

70 



Theta 1:DC.W 

50 



Phil; DC.W 

70 



Theta2:OC.W 

50 



Phi2: DC.W 

70 



Theta3;DC.W 

50 



Phi3: DC.W 

70 



paramrec: 

dc.w 

16384 

;WDHA parameter record 
;channel 0 gain 


dc.w 

32767 

;channel 0 limit 


dc.w 

16384 

;channel 1 gain 


dc.w 

32767 

;channel t limit 


dc.w 

16384 

.channel 2 gain 


dc.w 

32767 

;channel 2 limit 


dc.w 

16384 

channel 3 gain 


dc.w 

32767 

;channel 3 limit 


dc.w 

4224 

;gain/input select word 

He; 

dc.w 

-100 

;chanrt»J 0 


dc.w 

-95 

;channel 1 


dc.w 

-90 

;channel 2 


dc.w 

-84 

;channel 3 

; The He tabJe 

mus1(!) follow the He table. 

Hr: 

dc.w 

121 

;channel 0 


dc.w 

117 

;channel 1 


dc.w 

127 

;channel 2 
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dc.w 120 ;channel 3 


WDHAP SBounds: 

DC.W 

0C.W 

DC.W 

DC.W 


; Bounding reel to t window 

PSlnitY 

PSinitX 


P$tnitY+PSGHeight+PSGInitY+2*PSTxtSize+4 
PS Right 


WDHAPSGraph: 


DC.W 

DC.W 

DC.W 

DC.W 


; bounding rectangle for graph 
PSGInitY 
PSGInitX 

PSGInitY+PSG Height 
PSGlnitX+PSGWkith 


WDHAPSChart: 


DC.W 

DC.W 

DC.W 

DC.W 


; bounding rectangle for chart 
PSClnitY 
PSCInitX 

PSClnitY PS GH eight 
PSCInilX+PSCWidth 


TRect: 

DC.L 0 
DC.L 0 

TPoint: DC.L 0 

WhichControl: DC.L 0 


For calculating various rectangles. 

For calculating mouse change. 

A control handle, for temporary storage. 


ThetaPal: DC.B SAA.SSS.SAA.SSS.SAA^SS.SAA.SSS 

PhiPat: DC.B SSS.SAA.JSS.SAA^SS^AA.SSS.SAA 


NumBuf: 


DC&B 64,0 ; Buffer for number conversion 


argl 

deb.w 

8,0 

arg2 

deb.w 

8,0 

arg3 

deb.w 

8,0 

arg4 

deb.w 

8,0 

arg5 

deb.w 

8,0 

twoexl 4 

dc.w 

$40 

fp20dBe 

dc.w 

$40 


;integer buffer 

extended floating point buffer 
extended floating point buffer 
extended Moating point buffer 
;exlended floating point buffer 
,$8000, $0000, $0000,50000 
$8af9,5db22,$dOe5,S6042 


Clipped dc.w 0 
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WDHAPS.hdr 

This file must be included if your program uses the 
WDHA Parameter Settings window. 


XREF 

WDKAPSOpen 

XREF 

WDHAPSCtose 

XREF 

WOHAPSShow 

XREF 

WDHAPSHide 

XREF 

WDHAPSDraw 

XREF 

WDHAPSControl 

XREF 

WDH APSIS 

XREF 

WDHAPSSetParam 
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; file WDHATC.Asm 

Indude MacTraps.D 
Indude ToolEqu.0 
Indude SysEquX.0 
Indude Quick£quX.D 
Indude SANEMacs.txt 
Indude MDS2;WDHA.hdr 
Indude MDS2:WDHAMac.txt 
Indude MDS2:WDHASCSI.hdr 


; WDHA Test/Calibrate Window Manager 

; This package contains routines to manipulate the WDHA Test/Calibrate 

; window, which allows you to do pure tone audiometry via the WDHA, 

; The window contains text boxes which allow the user to change the 

; parameters to the test procedure, as well as the control boxes (as in the 
; parameter settings window) to determine the gain/select input word and 
; the on/off status of the hearing aid. 

; External Definitions 

XDEF WDHATGOpen 
XDEF WDHATCCIose 
XDEF WDHATCShow 
XDEF WDHATCHide 
XDEF WDHATCDraw 
XDEF WDHATCControl 
XDEF WDHATCldie 
XDEF WDHATCKey 
XDEF WDHATCIS 
XDEF WDHATCDoTest 

; Constant Definitions 

; TC = The Test/Calibrate Window 

TClnitX ECU 30 ; initial X coord (global) of upper left corner 

TCInitY ECU 50 ; initial Y coord (global) of upper left corner 

TCRighiEDJ 448 

TCTxtSize EQU 12 

; TCCtJ s The Control Buttons 
TCCtilnilX ECU 258 

TCCttinitY EQU 15 

TCCtlFHeight BQU 24 

; Text Edit Box Constants 
ToneBursts EQU 0 

RiseCount EQU 1 

OnCount BQU 2 

FallCount EQU 3 

OffCount EQU 4 

Frequency BQU 5 

Attenuate EQU 6 
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TextBoxes ECU 7 


; There are seven boxes 


; Subroutine Declarations 

; Name; WDHATCOpen 

; Function: Call this routine to create and display the TC Window. 

; Input: None 
; Output: None 
WDHATCOpen: 

movem.l d0-d2/a0-a6,-($p) ; save registers 

; Set up document window. 

; FUNCTION NewWindow [wStorage: Ptr; boundsRect: Reel; 

; title: Str255; visible: BOOLEAN; 

; procID: INTEGER: behind: WindowPtn 

go Away Flag: BOOLEAN; 

; refCon: Longlnt) : WindowPtr; 

SUBQ #4,SP ; Space for function result 


SUBQ #4 r SP ; Sf 

CLRL -(SP) ; Si 

PEA WDHATCBounds ; W 

PEA 'WDHA Test/Calibrate* ; W 

MOVEB #255, -(SP) ; M; 

MOVE #rDocProc,-(SP) ; St 

NOVEL ;Ma 

move.B #-1,-<SP) ;W 

CLRL -(SP) ; W 

^NewWindow ; Or 

lea WDHATCPtr,a4 

MOVEL (SP)+,(a4) ; S< 

MOVEL (a4),-(SP) ; Mi 

; PROCEDURE SetPort (gp: GrafPort) 

_SetPort ; Make it 

; Add the text boxes. 

bsr TCAddBoxes 

; Add the control buttons. 

bsr TCAddControls 

; Draw the content region 

bsr WDHATCDraw 

movem.l (Sp)+,d0-d2/a0-a6 

RTS 


Storage for window (Heap) 

Window position 
Window title 
Make window visible 
Standard document window 
Make it the Iron! window 
Window has goAway button 
Window refCon 
Create and draw window 

Save handle for later 

Make sure the new window is the port 


Make it the current port 


Restore registers 


; Name: WDHATCCiose 

; Function: Call this routine to destroy the TC Window and remove it from 
; the screen. 

: Input: None 
; Output: None 
WDHATCCiose: 

movem.l dO*d7/aO-a6,-(sp) ; save registers 

move. I WDHATCPtr,-(sp) 

_KillControls 
: Dispose Window 

move.l WDHATCPtr,‘{sp) 

_Dispos Window 

movem.l (Sp)+,d0~d7/a0-a6 ; restore registers 

rts 
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: Name: WDHATCShow 

; Function: This routine makes the TC window visible and front most 
; Input: None 
; Output: None 
WDHATCShow: 

movem.l dO-d7/aO-a6,-<sp) ; save registers 

; Bring it to the front 

move. I WDHATCPtr,'{sp) 

_BringToFront 
; Show Window 

move ! WDHATCPtr,~(sp) 

_ShowWindow 

move. I WDHATCPti\-(sp} 

_S elect Window 

movem.l (Sp)+,d0*d7/a0*a6 ; restore registers 

rts 

; Name: WDHATCHide 

; Function: This routine makes the TC window invisible, removing it from the 
; screen (but not destroying it). 

; Input: None 
; Output: None 
WDHATCHide: 

movem.l d0-d7/a0-a6,-(sp) ; save registers 

; Hide Window 

move.l WDHATCPtr,-(sp) 

JHide Window 

movem.l (sp)+,d0-d7/a0-a6 ; restore registers 

rts 

; Name: WDHATCDraw 

; Function: This routine draws the TC window’s contents. 

; Input: None 
; Output: None 
WDHATCDraw: 

movem.l d0-d7/a0-a6,-(sp) ; save registers 

lea WDHATCPtr,a4 ; Pointer on stack 

MOVEL (a4) p -(SP) 

; PROCEDURE SetPort (gp: GrafPort) 

_SetPort ; Make it Ihe current port 

; Draw the text buttons. 

bsr TCDrawBoxes 

; Draw the control buttons, 

move.l WDHATCPtr,-(sp) ; the window ptr 
_DrawControls 

movem.l (Sp)+,d0-d7/a0-a6 ; restore registers 

rts 

; Name: TCAddControls 

; Function: This routine adds the TC window’s controls. 

; Input: None 
; Output: None 
TCAddControls; 

movem.1 dO-d7/aO-a6,-(sp) ; save registers 


89 



5 , 706,352 


Sat up the controls bounding rectangle 
lea TRect, a4 

move.w#TCCtllnitY+0 # TCCUFHeight,{a4) ; store y coord 
move.wtfTCCtl!nilX,2(a4) ; store x coord 

mova.w#TCCtllnitY+0'TCCtlFHeight+20,4(a4) ; store y coord 

move.w#TCRight,6(a4) ; store x coord 

Push parameters tor NewControl 

clr.l -{sp) ; NewControl returns a handle 

move. I WDHATCPtr.-(sp) ; the window ptr 


pea TRect ; the re< 

pea 'Hearing Aid On* ; title 

move.b #TRUE,-{sp) ; visible 

move.w#0,-{sp) ; value 

move.w#0,-(sp) ; min 

move.w#1 ,-(sp) ; max 

move.w#1 ,-<sp) ; check 

move. I #G,-(sp) ; refcon 

Call NewControl 

_NewControi 

lea AidControl,a3 

move.) (sp)+.(a3) ; store 

Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#TCCtllnitY+rTCCtlFHeight f (a4) 
mov8.w#TCCtllnitX.2(a4) ; store x coord 

move.w #TCCtl!nitY+1 •TCCtlFHeight+20, 4{a4) 


the rectangle bounding the control 

title 


check box proc id 
refcon not used 


store the result 


store y coord 


; store y coord 


move.w#TCRight,6{a4) ; store 

Push parameters for NewControl 

clr.l -(sp) ; NewC 

move. I WDHATCPtr,-<sp) ; the window p 

pea TRect : the re 

pea ’Input Attenuation' ; title 

move.b #TRUE,*(sp) ; visible 

move.w#0,-(sp) ; value 

move.w#0 t -(sp) ; min 

move.w#1 ,-(sp) ; max 

move.w#1 ; check 

move.l tf0,-(sp) ; refcon 

Call NewControl 

_NewControt 

lea lAControl,a3 

move.l <sp)+,(a3) ; store 

Set up the controls bounding rectangle, 
lea TRect.a4 

move.w#TCCtllnitY+2*TCCt!FHeighUa4) 
move.w #TCCtllnitX.2{a4) ; store x coord 
move,w#TCCtllnitY+2*TCCtlFHeight+20,4{a4) 


; store x coord 


; NewControl returns a handle 
; the window ptr 

: the rectangle bounding the control 
jn' ; title 


check box proc rd 
refcon not used 


store the result 


store y coord 


; store y coord 


move.w#TCRight,S(a4) ; store x coord 

Push parameters for NewControl 

clr.l -(sp) ; NewControl returns a handle 

move.l WDHATCPtr,-{sp) ; the window ptr 

pea TRect ; the rectangle bounding the control 

pea "Output Attenuation 1 ; title 

move.b #TRUE,-{sp) ; visible 
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move.w#O f *(sp) ; value 

move.w#Q,*<sp) ; min 

move.w#1 ,-{sp) ; max 

move.w#i ,-<sp) ; check box proc id 

move. I #0,-{sp) ; refcon not used 

Call NewControl 
_NewControl 

lea OAControl,a3 

move. I (sp)+,(a3) ; store the result 

Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#TCCtllnitY+3'TCCtlFHeight,(a4) ; store y coord 
move.w#TCCtllnitX,2(a4) ; store x coord 

move.w#TCCtllnitY+3*TCCtlFHeight+20 1 4(a4) ; store y coord 


visible 


move.w#TCRight,6(a4> 

Push parameters for NewControl 
clr.l *{sp) 

move. I WDHATCPlr.-(sp) 
pea TRect 

pea ’Field Mike' 

move.b #TRUE,-{sp) 
move.w#1 ,-(sp) 
move.w#G,-(sp) 
move.w#1 ,-{$p) 
move.w#2,-(sp) 
move.l #0,-(sp) 

Call NewControl 

^NewControl 

tea FieldControl,a3 

move.! (sp)+,(a3) 

Set up the controls bounding rectangle, 
lea TRect,a4 

move.w#TCCtllnitY+4*TCCtlFHeight,(a4| 
move.w#TCClllnitX,2(a4) ; store x coord 
move. w#TCCtllnitY+4*TCCtlFH eight* 20, 4(a4) 


store x coord 


handle 


; NewControl returns a 
the window ptr 

; the rectangle bounding the control 
; title 


make Fiekt mike on as the default 

min 

max 

radio button proc id 
refcon not used 


store the result 


store y coord 


; store y coord 


; NewControl returns a handle 
the window ptr 

; the rectangle bounding the control 
; title 


visible 


move.w#TCRight,6(a4) ; store x coord 

Push parameters for NewControl 
clr.l *{sp) 

move.l WDHATCPtr,-($p) 
pea TRect 

pea 'Probe Mike' 

move.b #TRUE,-(sp) ; 

move.w#0,-<sp) 
move.w#Q,-<sp) 
move.w#1 ,-<sp] 
move.w#2,-{spJ 
move,! #0,-{sp) 

Call NewControl 

_NewControl 

lea PrabeControl,a3 

move.! (sp)+,(a3) 

Set up the controls bounding rectangle, 
lea TRect, a4 

move.w#TCCtllnitY+5*TCCtlFHeight 1 (a4) ; store y coord 


value 

min 

max 

radio button proc id 
refcon not used 


store the result 
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move.w#TCCtllnitX,2(a4) ; store x coord 

move.w#TCCIJIn>tY+5*TCCt1FHeight+24,4{a4) ; store y coord 
move.w#TCCtilnitX+40,6(a4) ; store x coord 

Push parameters for NewCo ntrol 
clr.l -(sp) 

move.! WDHATCPtr.-(sp) 
pea TRect 

pea 'Start' 

move.b #TRUE,-(sp) 
move.w#0,-(sp} 
move.w#0,-{sp) 
move.w#0,-(sp) 
move.w#0,-(sp) 
move.) #0,-(sp) 

Call NewCo ntrol 
_NewCo ntrol 

lea StartControl,a3 

move.l (sp)+,(a3) 
movem.l (Sp)+,d0-d7/a0-a6 

rts 


; NewControl returns a handle 
the window ptr 

; the rectangle bounding the control 

title 

visible 

; value 
; min 

; max 

; simple button proc id 
; refcon not used 


store the result 


TC Add Boxes: 

movem.l dO-d7/aO-a6,~{sp) 

lea TextHandles,a3 

lea TextRect$,a4 

move. w#Tone Bursts, d4 
TCASLoop: 

cmp.w #TextBoxes,d4 
beq TCABDone 

; TENew 

; Get Destination Reel in TRecl 
lea TRect,a2 

move.! («4),(a2) 
move.l 4(a4),4(a2) 

; Make it a little smaller 

pea TRect 

move.w#1,*{sp) 

move.w#1 t -(sp) 

JnsetRect 
; Call TENew 


clr.l 

-(sp) 

; make room for handle result 

pea 

TRect 

; dest reel 

pea 

TRect 

: view rect 

_TENew 


move.l 

(sp)+,(a3)+ 


lea 

8(a4),a4 


add.w 

#1 ,d4 


bra 

TCABLoop 


TCABOone: 



lea 

TextHandies,a4 


; Default Tone 

Burst ts 3 


pea 

'3' 

; incorporate the text 

add! 

#1.(sp) 

; move past the length 

move.) 


; It's 1 character long 
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move.l (a4)+,-(sp) 

_ TEInsert 

; Default Rise Time is 309 

pea *309' 

add.l #1 , (sp) 

move.! #3,-{sp) 
move.l (a4)+,-{sp) 

_TE Insert 

; Default Signal On is 2455 

pea '2455* 

add.l *1.(sp) 

move.! #4, *(sp) 
move.l (a4}+,‘(sp) 

_TElnsert 

; Default Fall Time Is 309 

pea '309' 

add.l #1 , (sp) 

move.l #3,-{sp) 
move.l (a4)+,-(sp) 

_TE Insert 

; Default Signal Off is 3069 

pea ’3069’ 

add.l 01 , (sp) 

move.l #4,-<sp) 
move.l (a4)+,-(sp) 

_TEInsert 

; Default Frequency Is 2000 

pea *2000* 

add.l #1, (sp) 

move.l #4, -(sp) 
move.l (a4)4,.(sp) 

_TEInsert 

; Default Attenuation is 20 
pea '20' 

add.l 01,(sp) 

move.l #2,-(sp) 
move.l {a4)4,-{sp) 

_TEInser1 

movem.l (sp)4,d0-d7/a0-a6 

rts 


; incorporate the text 
; move past the length 
; It's 3 characters long 


; incorporate the text 
; move past the length 
; It's 4 characters long 


; incorporate the text 
; move past the length 
; It’s 3 characters long 


; incorporate the text 
; move past the length 
; It’s 4 characters long 


; incorporate the text 
; move past the length 
; It’s 4 characters long 


; incorporate the text 
; move past the length 
; It’s 2 characters long 


; Name: WDHATCldle 

; Function: This routine blinks the caret of the active text box. It should be 
: called each time through your main event loop. 

; Input: None 
: Output: None 
WDHATCldle: 

movem.l a0-a8/d0‘d7,-{sp) 

lea TextHandles,a4 

move.wWActive,d4 ; which one is active? 

bmi TCINoneActive ; *1 means none 

asl.w #2,d4 ■ *4 for long offset 

move.l (a4,d4.wh-{sp) 

TEIdle 
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TCINoneActive: 

movem.l {Sp)+.a0-a6/d0-d7 

rts 

; Name:WDHATCKey 

; Function: Call WDHATCKey when the TC window is active and a keypress 
; event is active. 

; Input: The char (from the event's message field) as a word. 

; Output: None 
WDHATCKey: 

movem.l aO-a6/dQ-d7,-(sp) 

lea TextHandles,a4 

move.wWActive,d4 ; which one is active? 

bmi TCKNoneActive ; -1 means none 

asl.w #2 f d4 ; *4 for long offset 

move.w64{sp),*(sp) ; push the char 

move.l (a4,d4.w),-{sp) 

JTEKey 

TCKNoneActive: 

movem.l (Sp)+,a0-a6/d0-d7 

; remove parameter from stack 

move.l <sp),2(sp) : move return address 

clr.w (sp) +■ ; remove extra space 

rts 

; Name: WDHATCIS 

; Function: This routine returns a Boolean telling whether or not 
; the given window pointer Is the TC window's pointer. 

; Input: A window pointer (passed on the stack) 

; Output: a word, TRUE or FALSE (defined in WDHA.hdr) returned on the stack. 
; "Note: You do not have to push a word for the result of this routine. 
WDHATCIS: 



movem.l 

a4/d4,-(sp) 

; save registers 


move.l 

8(sp),a4 

; get return address in a4 


move.l 

12(sp),d4 

; get WindowPtr in d4 


cmp.l 

WDHATCPtr,d4 

; Was it our window 7 


beq 

IS10 

; It Is 


move.w 

#FALS£,t 4(sp) 

; save result 


bra 

IS2Q 


IS10: 





move.w 

#TRUE,14(sp> 


IS20: 





move.l 

a4.1 0(sp) 

; put return address bacK 


movem.l 

(sp)4-,a4/d4 

; restore registers 


tst.w 

(sp)+ 

; get rid of extra two bytes 


rts 


; return 

; Name: 

: WDHATCControl 



; Function: This routine should be called whenever a mousedown event occurs 
; within the contents of the TC Window. It handles the hilighling of the 
; proper control buttons, and sends the proper records to the WOHA. 

: Input: The mouse location (on the stack), from the event's where field. 

; Output: None 
WDHATCControl: 
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movem.J d0-d7/a0-a6,-(sp) 

move. I WDHATCPtr,-(sp) ; WDHATCPtr on stack 

; PROCEDURE SetPort (gp: GrafPort) 

_SetPort ; Make sure it’s the current 

port 


pea 64(sp) 
_GlobalTo Local 
; Was it in a control button? 
ButtonCheck; 

; call FindControl 


clr.w «(sp) 
move.) 66(sp) r -(sp) 
move.! WDHATCPtr, -(Sp) 
pea WhichControl 

^FindControl 
tst.w (sp)+ 

lea WhichControl, a4 

1st. I (a4) 

beq TBCheck 


if it was in a control, call TrackControl 
clr.w -(sp) 

move. I WhichControl, -{sp) 
move.l 70{sp),-{sp) 
move.l #0,-(sp) 

^TrackControl 
tst.w (sp)+ 


beq NoChan 

; Was it the Start Button? 

move.l SlartControl t d4 

lea WhichControl, a4 

cmp.l (a4),d4 


bne InvControl 

bsr WDHATCDoTest 

bra NoChan 

; invert the control value 
InvControl: 

clr.w -(sp) 

move.l WhichControl,-(sp) 

_GetCtlValue 

mcve.w(sp)+,d3 

not.w d3 

and.w #1 ,d3 

move.l WhichControl, -(sp) 

move.wd3,-{sp) 

_SetCtl Value 
; Was it the Field button? 

move.l FieldControl,d4 
lea WhichControl, a4 

cmp.l (a4),d4 
bne NotField 

; Otherwise invert the Probe mike 
clr.w -(sp) 

move.l ProbeControi.-(sp) 


; push address of point 
; convert it to the window's coords 


; returns a long 
; push point in local coords 
; WDHATCPtr on stack 
; which one? 

; pop result 


; Was it in any of them? 

; if not try the text boxes 

; returns a word 

; WhichControl now has the handle 
; starting point 

; no action proc 

: did they change the button? 

; if not then leave 


; if not then forget it 
; otherwise do the test 
: and leave 


; GetCtiValue returns a word 


; now value is in d3 
; invert the status 
; set button 


; if not then forget it 
; GetCtiValue returns a word 
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_Ge!CllVaJue 
move.w(sp)+,d3 
not.w d3 
and.w #1 ,d3 

move.I ProbeControi,-fsp) 
mova.wd3,-(sp) 

_SetCUValue 
bra NoChan 

; Was it the Probe button? 

NotField: 

move.I ProbeControl,d4 
tea WhichControl,a4 

cmp.l <a4) t d4 
bne NoChan 

; Otherwise invert the Field mike 
clr.w -(sp) 
move.I FieldControl,-($p) 
_GetCtlVaiue 
move.w(sp)+,d3 
not.w d3 
and.w #1 ,d3 
move.I FieldControl,-(sp) 
move.wd3,-{sp) 

_SetCtl Value 
bra NoChan 

TBCheck: 

tea Textft«cts,a4 

move .w #ToneBursts,d4 
TBCLoop: 

cmp.w #TextBoxes,d4 
beq NoChan 

clr.w -|sp) 
move.I 66(sp),*(sp) 
move.I a4,-(sp) 

_Pt1nRect 


tst.w 

(sp)+ 


bne 


TBFound 

tea 


8{a4),a4 

add.w 

#l,d4 


bra 


TBCLoop 


TBFound: 

; Deactivate old active box 

lea TextHandles,a3 

lea WActive,a4 

move.w(a4),d3 

bmi TBNoneActive 

asi.w #2,d3 

move.I (a3,d3.w),-(sp} 

_T ED e activate 
TBNoneActive 

move.wd4,(a4) 
asi.w #2,d4 
move.I (a3,d4.w).-{sp) 
TEActivate 


; now value is in d3 
; invert the status 

; turn off Probe button 


; if not then forget it 
; GetCtlVaiue returns a word 


; now value is in d3 
; invert the status 

; turn off Probe button 


; make room for result. 

; push the mouse point. 

; the text boxes rectangle. 

; Is the point inside. 

; If so we've found the right one. 

; Otherwise move to next rect. 
; increment the counter 


; Get old active one 
; * 4 for long words 


; store new active one 
; counter * 4 since long words. 
; push the TEHandfe 
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move.J 64<sp),*(sp) ; push the point 

clr.w -(sp) ; don't extend 

move. I (a3,d4.w),-{sp) ; push the TEHandle 

_TECiick 
NoChan: 

_Pen Normal 

movem.l (*p}+,d0-d7/a0-a6 

move. I (sp}+, (sp) ; get rid of param 

rts 

; Name: TCDrawBoxes 

; Function: TCDrawBoxes draws the text box portion of the TC window, 

; including the headings and the text boxes themselves. 

: Input: None 
; Output: None 
TCDrawBoxes: 

movemJ d0-d7/a0~a6,-(sp) 

pea ERect ; erase the input portion of the window 

_EraseRect 

lea TextRects,a4 

lea TextHandles,a3 

mave.w#TCCtllnitY+16,d3 ; initial y coord 

DispString #10,d3,Tone burst count? 

pea 0(a4) 

_Frameflect 

pea ERect 

move.) 0(a3),-(sp> 

JTEUpdate 

add.w #20, d3 ; move down 

DispString #10,d3,Rise time sample count? 

pea 8(a4) 

_FrameRect 

pea ERect 

move. I 4{a3},-(sp) 

_TEUpdate 

add.w #20, d3 ; move down 

DispString #10,d3,Signal or sample count? 

pea 1 6(a4) 

_FrameRect 

pea ERect 

move.! 8(a3),-{sp) 

_TEUpdate 

add.w #20, d3 ; move down 

DispString #10,d3,Fall time sample count? 

pea 24 (a4) 

_FrameRect 

pea ERect 

move.! 12{a3),-(sp) 

_TEUpdate 

add.w #20, d3 ; move down 

DispString #10,d3, Signal off sampie count? 

pea 32{a4) 

_FrameRect 

pea ERect 
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move.l 16(a3),-(sp) 

JTEUpdate 

add.w #20,d3 ; move down 

DispString #10, d3, Frequency? 

pea 40(a4} 

_FrameRect 

pea ERect 

move.l 20(a3),-(8p) 

_TEUpdate 

add.w #20, d3 ; move down 

DispString #10,03, Alien re max out (08)? 

pea 48 («4) 

_F ram e Reel 

pea ERect 

move.! 24(a3),-(sp) 

JTEUpdate 

add.w #20,d3 ; move down 

DispValue #10,03, Power a .Pbecimal 

pea 

_DrawString 

lea Key8uf,aQ 

move.l PFract,dO 

move.w#0,-{SP) ; Select NumToSIring 

_Pack7 

pea KeyBuf 

_DrawString 

movem.l (sp)+,dO-d7/aO*a6 

rts 


; Name; WDHATCOoTest 

, Function: WOHATCDoTest fills the pa ramrac with the proper values 
; initiates the WDHA test by sending the paramrec out via the routine 
; wdhatest. 

; Input: None 
; Output: None 
WDHATCOoTest 


save registers 

get the gain/input select word 


movem.l dO~d7/aO-a6,*(sp) 

lea paramrec l a4 

; generate the gain/input select word 

move.wl 4{a4),d4 ; get the gain input select word sn 

TCIA: ; set input attenuation bit 

cir.w Hsp) : GetCtIValue returns a word 

move.l IAControl,*(sp) ; the handle 
_GetCtlVaiue 
tst.w (sp}4 
beq TCNolA 


TCDolA: 

bset.i #INPUT,d4 
bra TCOA 

TCNolA: 

bclr.l #INPUT,d4 


TCOA: 

cir.w >(sp) 
move.! OAControl,-(sp5 


; set output attenuation bit 
; GetCtIValue returns a word 
; the handle 
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_G etc II Value 


tst.w 

(sp)+ 


beq 

TCNoOA 


TCDoOA; 



bset.l 

#OUTPUT,d4 


bra 

TCField 


TCNoOA; 



bclr.l 

#OUTPUT,d4 


TC Field: 


; set the field mike bit 

clr.w 

-<sp) 

; GetCtIVaiue returns a word 

move.l 

FieldControl,-{sp) 

; the handle 

^GetCtl Value 


tst.w 

(sp)+ 


beq 

TCNoFiekJ 


TCDoFiekJ: 



bset.l 

#FIELD,d4 


bra 

TCProbe 


TCNoFieW: 



bclr.l 

#FIELD,d4 


TCProbe: 


; set the probe mike bit 

clr.w 

-<sp) 

; GetCtIVaiue returns a word 

move.l 

ProbeControl,-<sp) 

; the handle 

_GetCHValue 


tst.w 

{sp} + 


beq 

TCNo Probe 


TCDo Probe: 



bset.l 

#PROBE,d4 


bra 

TCSendParams 


TCNo Probe: 



bclr.l 

#PROBE.d4 


TC Sand Para ms: 


move.wd4,14(a4) 

; store the modified gain/input select word. 

lea 

paramrec.aO 


bsr 

TCCvtBoxes 


bsr 

wd ha test 


lea 

arg1,a4 


move.l 

d6,(a4) 

; put MS in argl 

pea 

argl 


pea 

arg2 


1L2X 

; convert MS to extended in arg2 

move.l 

d7,(a4) 

; put SMS in argl 

pea 

argl 


pea 

arg3 


1L2X 

; convert SMS to extended in arg3 

move.l 

#8388608,{a4) 

; 2 A 23 

pea 

argl 


pea 

arg4 


IL2X 

; convert 2*23 to extended in arg4 

pea 

arg4 


pea 

arg2 


fdivx 

; divide MS by 2 A 23 to move decimal point 

pea 

arg4 


pea 

arg3 

99 
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fdivx 

; divide SMS by 2*23 to move decimal point 


pea 

two 


pea 

arg3 


fdivx 

; SMS/2 


pea 

arg2 


pea 

arg2 


fmuix 

; MS*2 


pea 

arg2 


pea 

arg3 


feubx 

; E in arg3 


iea 

argl ,a0 


move.l 

#4342944, (aO) 


pea 

argl 


pea 

arg2 


fL2X 

; get 1000000‘10/log base e of 10 in arg2 


pea 

thousand 


pea 

arg2 


fdivx 

; get three decimal places 


pea 

thousand 


pea 

arg2 


fdivx 

; now six decimal places 


pea 

arg3 


flnx 

; take log base a of E 


pea 

arg2 


pea 

arg3 


fmuix 

; now Power s (10 * log base e of E)/(log base e of tOJ in arg3 


pea 

arg3 


pea 

arg2 


fx2x 

; copy arg3 (Power) to arg2 


pea 

arg2 


ftintx 

; Truncate result 


pea 

arg2 


pea 

arg3 


fsubx 

; Now integer part in arg2, fractional part in arg3 


pea 

thousand 


pea 

arg3 


fmuix 

get three decimal places 


pea 

thousand 


pea 

arg3 


fmuix 

; now six decimal places 


pea 

arg2 


pea 

argl 


fx2t 

; convert decimal part to long integer 


lea 

PDecimal.aO 


move.! 

argl ,(a0) 


pea 

arg3 


pea 

argl 


fx2l 

; convert fractional part to long integer 


lea 

P Fractal 


move.l 

arg1,(at) 


bpl 

PResult 


tst.l 

(aO) 


beq 

PResult 


neg.l 

(al) 
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; Print Result 
PResult: 

bsr WDHATCDraw 

; Now put the WDHA in either hearing aid state or idle state 

clr.w -(sp) ; GetCtiVaiue returns a word 

move. I AidControl.-(sp) ; the handle 

_GetCtlValue 

tst.w (sp)+ 

beq TCAidOff 

move.w#-1,d0 ; go lo hearing aid mode 

bra TCSetMode 

TCAidOff: 

move.w#-t OQ.dO ; go to idle mode 

TCSetMode: 

jsr scsiwr ;send mode code to WDHA 

movem.l (Sp)+,d0-d7/a0-a6 ; restore registers 

rts 


; Name: TCCvtBoxes 

; Function: TCCvtBoxes actually does the work of filling the paramrec by 
; converting the text of the text boxes to their appropriate values, and by 
; calculating the sine and cosine factors from the specified frequency. 

; Input: None 
; Output: None 
TCCvtBoxes: 

movem.l d0*d7/a0*a6,-(sp) 

lea TextHandles,a4 

move. w#Tone Bursts, d4 
TCCBLoop: 

cmp.w #TextBoxes,d4 
beq TCCBDone 

move.wd4.d5 

asl.w #2,d5 ; *4 for longs 

move. I {a4,d5.w),aQ ; get the text handle 

_HLock ; Lock the handle 


move. I (aO),a2 ; Dereference the handle 

move.w60(a2),d6 ; get teLength 

lea NumBuf,a6 

move.b d6,{a6) ; store the length of the string 

clr.j -(sp) ; make room for the result, 

move. I aO,-(sp) ; get the text 

_TEGetText 

move. I (sp)+,a3 ; get it in a3 

move. I a3,a0 

_HLock : lock the handle 

move, I (aO),aO ; Dereference the handle, move src in aO 

lea NumBufT.al ; Destination is NumBufT 

move.wd6.dO ; BlockMove expects length tn dO 

ext. I dO ; expects a long 

BlockMove 


lea NumBuf.aO 

move.w#1 ,-(5P) 

_Pack7 ; StringToNum puts result in dO 

lea offsets. at 


101 



153 


5 , 706,352 


154 


move.b (at ,d4.w),d1 ; get offset in paramrec of this entry 

ext.w dl ; make it a word 

lea paramrec.aO ; get paramrec base address 

move.wdQ,(aO,dt ,w) ; store the value. 

move. I a3,a0 ; Unlock the text handle 

_HUn!ock 

move.l (a4,d5.w),a0 ; Unlock the TEH andle 


_HUnfock 

add.w #1 ,d4 ; go to next box. 

bra TCCSLoop 

TCCBOone: 


; Now compute the slope delta values which are 1 6384/sample count 
lea paramrec. a4 

move.l #1 6384,00 

move.w2(a4),d1 ; first do the rise time slope delta 

beq RTSZero 

divu dl.dO 

move.wd0,4(a4) 
bra FTSOelta 

RTSZero: 

move.w#$7FFF,4(a4} 

FTSDelta: 

move.l #1 6384, dO 

move.w8(a4),df ; now do the fall time slope delta 

beq FTSZero 

divu dl.dO 

move.wdG,10(a4) 
bra TCCalcThg 

FTSZero: 

move.w#$7FFF,l 0(a4) 

TCCaicTrig; 

; Now send the parameters to the WDHA 
move.wFreq.dO 
lea argl.al 

move.wd0,(a1) 


pea 
F12X 

Compute burst amplitude 


AttenOK: 


argl 

arg3 


; arg3 will hold fp frequency 
;convert from integer to extended fp 


move, w 

Atten,dO 

bpl 


AttenOK 

clr.w 

K: 


dO 

neg.w 


dO 

lea 


argl.aO 

move.w 

dO,(aO) ; store Atten from max output i 

pea 

argl 

;dB gain 

pea 

arg4 

;fpdB gain 

F12X 


; convert from integer to extended fp 

pea 

fp20d8e ;20 # log base 10 of e = 8.685889638 

pea 

arg4 

,fpdB gain 

fdivx 


;db/fp2Gdbe (result in arg4) 

pea 

arg4 


fexpx 


;base e exponential (db ratio in arg4) 


i02 
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pea twoex14 ;scale it '2E14 to convert it to fixed point 

pea arg4 

fmulx 

pea arg4 

pea argl 

fx2i ;convert extended to integer 

lea paramrac t a4 

move.wargl ,20(a4) ; store the burst factor 


; compute sine and cosine factors 
; first get 2*pi*f/fs in argS 


pea 

arg3 

frequency 

pea 

argS 


fx2x 


;move arg3 to argS (frequency) 

pea 

twopi 

;2 pi 

pea 

argS 


fmulx 


;multiply 2 pi times f (result in argS) 

pea 

fp12277 

. sampling frequency is 12277 Hz 

pea 

arg5 


fdivx 


;divide by fs (result in argS) 

; Now get cos 

factor 


pea 

arg5 


pea 

cosreg 


fx2x 


;move arg5 to cosreg 

pea 

cosreg 


fc osx 


;take cosine of cosreg 

pea 

twoexIS 

;2M5 

pea 

cosreg 


fmulx 


;multiply by 2 A 15 

pea 

cosreg 


pea 

argl 


fx2i 


;convert extended to integer 

lea 

paramrec,a4 


move.wargl ,1 6(a4) 
; Now do sine 

;store cosine factor 

pea 

argS 


i pea 

sinreg 


fx2x 


;rrove arg5 to sinreg 

pea 

sinreg 


fsinx 


;take sine of sinreg 

pea 

fpl p95 

;1 .95 

pea 

sinrag 


fmulx 


imultiply by 1 .95 

pea 

twoexl 4 

;2M 4 

pea 

sinreg 


fmulx 


;multiply by 2*14 

pea 

sinreg 


pea 

arg2 


fx2i 


;convert extended to integer 

tea 

paramrac.a4 


move.warg2,18(a4) 

;push sine factor 

movam.l (sp)+ 

,d0-d7/a0-a6 


rts 

-WDHATC data declarations 
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WDHATCPtr: 

DC.L 

0 

WDHATC WindowPtr 

AidControl; 

DCJ. 

0 

Hearing Aid On Control 

(AControl; 

OC.L 

0 

Input Attenuation Control 

OAControl: 

DC.L 

0 

Output Attenuation 

FieldControl; 

DC.L 

0 

Field Mike Control 

ProbeControl: 

DC.L 

0 

Probe Mike Control 

StartControl: 

DC.L 

0 

Start Button Control 

; Which Text Edit Record is active? 

WActive: 


dc.w 

• 1 ; *1 means none are active 

TextHandles: 





dcb.l 

TextBoxes,0 

paramrec; 



;WDHA parameter record for test/caiibrate 


dc.w 

1 

;tone burst count 


dc.w 

0 

.rise time sample count 


dc.w 

0 

;rise time slope delta 


dc.w 

15384 

;signal on sample count 


dc.w 

0 

;fall time sample count 


dc.w 

0 

;fall time slope delta 


dc.w 

16384 

;signal off sampie count 


dc.w 

4224 

;gajn/input select word 


dc.w 

0 

;cosine factor 


dc.w 

0 

;aine factor 


dc.w 

32000 

;burst amplitude 


dc.w 

512 

;probe sample count (currently a constant) 


dc.w 

32 

;probe sample multiplier (currently a constant) 

; The following 

are not really a 

part of the paramrec, but currently must 

; follow it for the routine TCCvtBoxes to work properly 

Freq: 

dc.w 

0 


Atten: dc.w 

0 



; Power 




PDacimal: 

dc.l 

0 


PFract:dc.l 

0 



offsets: 





dc.b 

0 

;tone burst count is first entry 


dc.b 

2 

;hse is second 


dc.b 

6 

;on count is fourth 


dc.b 

8 

;fall count is next 


dc.b 

12 

;off count is seventh 


dc.b 

26 

frequency is 14th (not really a parameter} 


dc.b 

28 

;atten is 15th (not really a parameter) 


TextRects: 


dc.w TCCtllnitY+ToneBursts'20 
dc.w TCCtl l nitX -88 

dc.w TCCtllnitY+ToneBurst$*20+20 
dc.w TCCtllnitX-20 


dc.w TCCtllnitY+RiseCounr20 
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de.w TCClllnilX-8a 

dc.w TCCtllnitY4>RiseCount*20+20 

dc.w TCCtHnitX-20 

dc.w TCCtilnitY+OnCounf20 
dc.w TCCtllnitX-88 
dc.w TCCtlInitY4.OnCounr20i.20 
dc.w TCCtllnitX-20 

dc.w TCCtllnitY+FallCount*20 
dc.w TCCtllnilX*88 
dc.w TCCtllnitY+Fal!Counf20+20 
dc.w TCCtllnitX-20 

dc.w TCCtllnitY+OffCount*20 
dc.w TCCtllni!X-88 
dc.w TCCtllnitY+OffCount*20+20 
dc.w TCCtllnitX-20 

dc.w TCCtllnitY+Frequency*20 
dc.w TCCtllnitX-8B 
dc.w TCCtllnitY+Frequency*2Q+2Q 
dc.w TCCtllnitX-20 

dc.w TCCtllnitY+Attenuate'20 
dc.w TCCtllnitX*88 
dc.w TCCtltnitY+Attenuate‘20+20 
dc.w TCCtllnitX-20 


WDHATCBounds: ; Bounding rect for window 



DC.W 

TClnitY 


DC.W 

TCInitX 


DC.W 

TCInitY+200 


DC.W 

TC Right 

ERect: 

DC.W 

; Bounding rectangle for part to erase 
TCCtllnitY-8 


DC.W 

0 


DC.W 

TCCtllnitY+7*TC CtlFHaight 


DC.W 

TCCtllnitX 

TRect: 

DC.L 

0 


DC.L 

0 ;For calculating various rectangles. 

TPoint: DC.L 

0 

;For calculating mouse change. 

WhtchControl: 

DC.L 

0 ; A control handle, for temporary storage. 

NumBuf: 

DC.B 

0 ; Buffer for number conversion (length here) 

NumBufT; 

DCB.B 

79,0 ; Text here 

KeyBuf: 

DCB.8 

80,0 
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argt 

dcb.w 

8.0 

.integer buffer 

arg2 

dcb.w 

3 r 0 

[extended floating point buffer 

arg3 

dcb.w 

8,0 

.extended floating point buffer 

arg4 

dcb.w 

8,0 

’.extended floating point buffer 

arg5 

dcb.w 

8,0 

extended floating point buffer 

cosreg 

dcb.w 

r,o 

;room for cosine factor 

sinreg 

dcb.w 

8,0 

;room for sine factor 

xacc 

dcb.w 

8,0 

extended accumulator 

txreg 

dcb.w 

8,0 

; temporary extended register 

Pi 

dc.w 

$4QOO,$c90a, $5604, $t 893, $74bc 

twopi 

dc.w 

$4001 ,$c90e, $5604, $1893, $74bc 

zero 

dc.w 

$0000, $0000, $0000, $0000, $0000 

one 

dc.w 

$3ftf, $8000, $0000, $0000, $0000 

fp1p9S 

dc.w 

$3fff, $1999, $9999, $9999, $999 a 

two 

dc.w 

$4 000, $8000, $0000, $0000, $0000 

twoex14 


dc.w 

$400d,$6000,$0000,$0000,$0000 

twoexl 5 


dc.w 

$400e, $8000, $0000, $0000, $0000 

twcexIS 


dc.w 

$400f, $8000, $0000, $0000,$0000 

ten 

dc.w 

$4002,$a000, $0000.$ 0000, $0000 

hundred 

dc.w 

$4005, $c800, $0000,50000, $0000 

thousand 

dc.w 

$4008, $fa00,$0000,$0000. $0000 

fpl 2500 


dc.w 

$4Q0c r $c3 50, $0000, $0000, $0000 

fpl2277 


dc.w 

$400c,$bfd4, $0000, $0000, $0000 

fp20dBe 


dc.w 

$4002, $8af9,$db22,$d0e5, $6042 
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WDHATC.h* 

This file must be included if your program uses the 
WDHA Test/ Calibrate window. 

XPEF WDHATCOpen 
XREF WDHATCCfose 
XREF WDHATCShow 
XPEF WDHATCHide 
XPEF WDHATCOraw 
XPEF WDHATCConlrol 
XREF WOHATCtdie 
XFEr WDHATCKey 
XREF WDMATCIS 
XREF WOHATCOoTest 
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; file WDGHAFC.Asm 

; This file contains two routines which read text files containing 

; numeric expressions, and download the numbers to the digital hearing 
; aid. The routine WDHAFCSet is used in the Aid! 3 program to download 
; filter tap coefficients to the hearing aid. The routine WDHASetRleParams 
; is used to download parameters for the SSI 5 spectral shaping program. 

; The text files accessed by these routines must contain integer numbers 

; separated by any chracter which is nonnumeric and not (generally spaces, 

; tabs, or carriage returns). The text files accessed by WDHAFCSet can also 

; contain simple numeric expressions of the form A/B, where A and B are 

; integers. 

include MacTraps.D 

Include ToclEquX D 

Include SysEquX.D 

Include QuickEquX.0 

Include FSEqu.D 

Include MDS2;WDHADisk.hdr 

Include MDS2:WDHASCSLhdr 

XDEF WDHAFCSet 

XDEF WDHASetFi leParams 


; Constants for division 
NoOiv SOU 0 

ReadOne ECU 

DoDiv ECU 2 


; Haven’t seen a T 

1 ; Read first operand 

; Read second operand, so don’t division. 


Name: WDHAFCSet 

Function: This routine uses the SFGetFile dialog to get the name of the file 

from the user, then opens the file, converts it’s contents from text form 
to binary integer form, then downloads it to the hearing aid. 

Input: None 
Output: None 
WDHAFCSet: 

movem.l d0-d7/a0*a6,-(sp) 

; Do SFGetFile 


move.l 

#$00480048 ,-(sp) 

; where 

pea 

'Which Filter Coefficient File? 1 ; prompt 

move,! 

#0,-{sp) 

; fileFilter procedure 

move.w#-1 , >{sp) 

; display all types of 

pea 

FTypes 

; typeList 

move.l 

#0,-(sp) 

; dlgHook 

pea 

Reply 

; SFReply 

move.w#2,-(sp) 

_Pack3 

: trap to SFGetFile 

they choose a file? 


lea 

good,a3 


tst.w 

(a3) 


beq 

. open it. 

DoneFCSet 


lea 

fName,at 

; file name pointer 

bsr 

OiskOpen 


tst.w 

dt ; test ioResuit 

bne 

DcneFCSel 
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; Now d2 has ioRefNum 

move.w#1,d1 ; read one sector 
lea myBuffer.at 

bsr Disk Read 

bsr DiskClose 

; Now convert text buffer to words 

move.w#64,d3 ; d3 will be a counter 
move.w#NoDiv,d6 ; d6 tells if we should divide or not 
lea myBuffer.al 

lea numRec,a2 

FCLoop: 

lea numBuffer.aO 

; Convert from text buffer to a string 

clr.w d4 : count length of string 

FCSLoop: 

move.b (al )+,d5 
cmp.b #7\d5 
bne FCSNotDiv 

move, w #ReadOne,d6 
bra FCSDone 

FCSNotDiv 

cmp.b d 5 

beq FCSGo 

cmp.b #*0’,d5 

bio FCSDone 

cmp.b #*9',d5 

bhi FCSDone 

FCSGo: 


add.w #1,d4 
move.b d5,{a0)+ 
bra FCSLoop 

FCSDone: 

lea numString,aO 

move.b d4,(a0) 
move.wfM ,-(SP) 

_Pack7 ;StringToNum - cvt numString to word in dO 

cmp.w #NoDiv,d6 ; Are we dividing? 

beq FCSDooe2 

cmp.w #ReadOne,d6 ; Have we read one? 

bne FCSDonet 

add.w #1,d3 ; This one won't really count 

move.w#DoDiv,d6 ; Next time we'll divide 

bra FCSDone2 

FCSDonel: 

cmp.w #DoDiv ( d6 ; Should be dividing if we reach here 
bne FCSDone2 


move.wdO.dl 
lea -2{a2),a2 
move.w(a2),d0 
ext. I dO 

divs dl.dO 

move.w#NoDiv,d6 


get the divisor in dt 

; back up the pointer to the first operand 
get the first operand 

; extend dest of divs to long 


finished this divide 


bra 

FCSDona2: 


FCSDone2 
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move.wd0,(a2)+ ;store result 
sub.w #1 ,d3 
brie FCLoop 

; Send the coefficients to the WOHA 
lea numRec.aO 

bsr SetCo efficients 

DoneFCSet: 

movem.l (sp)+,d0-d7/a0-a6 

rts 


Name: WDHASetFileParams 

Function: This routine uses the WDHAGetFile dialog to get the file name 

from the user, then opens the file, converts its contents from text form 
to binary integer form, then downloads it to the hearing aid. 

Input: None 
Output: None 
WDHASetFileParams: 

movem.l dO-d7/aG-a6,-(sp) 

; Do SFGetFile 

move.) #$00480048, -(sp) ; where 

pea Which Set Params File?’ 
move. I #0,-{sp) 


move.w#-1 ,-(sp) 
pea FTypes 

move.l #0,-{sp) 
pea Reply 

move.w#2,-(sp) 
_Pack3 

; Did they choose a file? 


prompt 

fjleFilter procedure 

display all types of files 

typeList 

digHook 

SFRepiy 

trap to SFGetFile 


lea 

good.aS 


tst.w 

(a3) 


beq 

DoneFileSet 


open it. 
lea 

fName,a1 

; fife name pointer 

bsr 

DiskQpen 


tst.w 

dl ; test 

ioResult 

bne 

DoneFileSet 



; Now d2 has ioflefNum 

move,w#3,d1 ; read three sectors 
lea myBuffer.al 

bsr DiskRead 

bsr Disk Close 

; Now convert text buffer to words 

move.w#32Q,d3 ; d3 will be a counter 

lea mySuffer.af 

lea numRec,a2 

FileOuterLoop: 

lea num8uffer,a0 

; Convert from text buffer to a string 

clr.w d4 ; count length of string 

FileLoop: 

move.b (al )+,d5 
cmp.b #'-\d5 
beq FileGo 


no 
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cmp.b fl'O'.dS 

bio FileDone 

cmp.b ,d S 

bhi FileDone 

I FileGo: 

add.w #l,d4 
move.b d5,(a0) + 
bra FMeLoop 

FileDone: 

lea numString.aO 

move.b d4,(a0) 
mova.w#1 ,-(SP) 

_Pack7 ;SlringToNum * cvt mimString to word in dO 

move.wd0,(a2)+ ;store result 

sub.w #1,d3 

bne FileOutertoop 

; Send the coefficients to the WDHA 
lea numRec.aO 

bsr SetFileParams 

j DoneFileSet: 

! movem.l (sp}+,dG-d7/aO-a6 


I Reply: 




good: dc.w 

0 



copy: dc.w 

0 



t fType: dc.w 

0 



| vRefNum 

dc.w 

0 


version: 

dc.w 

0 


fName: dcb.b 

64,0 



FTypes: 

dc.l 

TEXT 


1 numString: 

dc.b 


0 ; length 

numBuffor: 

dcb.b 

63,0 

; text 

numRec: 


dcb.w 

320,0 

myBuifor: 


dcb.b 

1536,0 
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WOHAFC.hdr 

This file must be included if your program uses the 
Set Filter Coefficients function. 

XREF WOHAFCSet 
XREF WDHASetFileParams 
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; WDHASCSI.Asm 

; This file contains routines for sending records back and forth 

; between the Mac and the WDHA via the SCSI bus interface. 


Include MacTraps.D 
Include SysEquX.D 
Include ToolEquXD 


Include MDS2:WDHA.hdr 


XDEF 

SetParam 


XDEF 

SetCoefficients 


XDEF 

SetFileParams 


XDEF 

wdhatest 


XDEF 

SCSIlnterrogate 


XDEF 

SCSIWr 


XDEF 

SCSfRd 


XDEF 

SCSIBTst 


;scsi bus bit assignments 


abs 

equ 1 

; assert data bus 

dbs 

equ 0 

;deassert data bus 

ack 

equ 0 

;assert acknowledge line 

dck 

equ 1 6 

Reassert acknowledge line 

atn 

equ 0 

;assert attention line 

dtn 

equ 2 

;d easse rt attention line 

;Set WDHA parameters subroutine 



calling protocol 

lea paramrec,aO ;set pointer to set parameter record 

jsr SetParam 


SetParam: 

movem.l a0-a6/d0-d7,-(sp| ;save registers 

clr.w -(sp) 
bsr SCSIlnterrogate 
move.w(sp>+,dQ 
beq @4 
cmp.w #-1 00, dO 
beq @4 
move.3 #8-1, dl 
move.w #-2,d0 
jsr scsiwr 
@1 jsr ScsiBTst 

beq @1 

@2 move.vw{a0) + ,d0 

jsr scsiwr 
@3 Jsr ScsiBTst 

beq @3 
dbra d 1 ,@2 
move.w(aQ)+,dO 
jsr scsiwr 
@4 

movem.l (Sp)+,a0-a6/d0-d7 ;restore registers 

rts 


;SS15!D 

;set loop counter 

;get -2 mode code (set aid parameters) 
;send mode code to WDHA 
;test for WDHA 
;ready 

;ge? parameter 

;send parameter to WDHA 

;1est for WDHA. 

;ready 

;check end of loop 

;get last parameter 

;send last parameter to WDHA 
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;Set WDHA filter coefficients subroutine 
;calling protocol 

; lea corec,aO ;set pointer to array of coefficients 

jsr SetCoefficients 
SetCoefficients: 


1 

movem.l a0< 

-a6/d0-d7,*(sp) ;save registers 


move.w#-4,d0 

;get >4 mode coda {set aid coefficients) 


jsr scsiwr 

;send mode code to WDHA 

@1 

jsr ScsiBTst 

;test for WDHA 


beq @1 

;ready 


move.l #63, d 1 

;sel loop counter 

@2 

move.w(a0)+,d0 

;gat parameter 


jsr scsiwr 

;send parameter to WDHA 

@3 

jsr ScsiBTst 

;!est for WDHA 


beq @3 

; ready 


sub.w #1,d1 

;check end of loop 


bne @2 



move.w(a0)+,d0 

;get last parameter 


jsr scsiwr 

;send last parameter to WDHA 


movem.l (Sp)+,a0-a6/d0-d7 ;restore registers 


rts 



;Set file parameters subroutine 
;cailing protocol 

lea fllerec > aO ;sel pointer to array of 320 coefficients 

jsr SetFUeParams 

SetFileParams: 



movem 

1 a0-a6/d0-d7,*($p) ;save registers 


move.w#-5,d0 

;get -5 mode code (set aid coefficients) 


jsr 

scsiwr 

;send mode code to WDHA 

@1 

jsr 

ScsiBTst 

;fest for WDHA 


beq 

@1 

;ready 


move.l 

#319, dl 

;set loop counter 

@2 

move.w(a0)+,d0 

;get parameter 


jsr 

scsiwr 

;send parameter to WDHA 

@3 

jsr 

ScsiBTst 

;test for WDHA 


beq 

@3 

; ready 


sub.w 

#1 ,d1 

;check end of loop 


bne 

@2 



mov 0 .w(aQ)+,dO 

;get last parameter 


jsr 

scsiwr 

;send last parameter to WDHA 


move.w#-1 ,d0 

;get -t mode code (hearing aid mode) 


jsr 

scsiwr 

;send mode code to WDHA 


movem 

.1 (sp) + ,aG-a6/dO-d7 restore registers 


rts 



; WDHA test subroutine 


;calling 

protocol 



lea 

paramrec.aO 

;set pointer to set parameter record 


jsr 

wdhatest 


; upon 

exit: 



; d6 has the mean sum 
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; d7 has the square mean sum 
wdhatest: 



movem.l aO 

-a6/d0-d5,-(sp) ;save registers 


move. 

w#-3,d0 

got -3 mode code (te st/calibrate) 


jsr 

scsiwr 

;send mode code to WDHA 

@1 

jsr 

ScsiBTst 

;test for WDHA 


beq 

<§>1 

; ready 


move. 

1 #i3,d1 ;set loop counter (do all but last) 

@2 

move.w(aO)^,dO 

;gat parameter 


jsr 

scsiwr 

;send parameter to WDHA 


subq.b #1,d1 



bne 

@2 

;check end ol loop 

; read probe sample 


@4 

j*f 

ScsiBTst 




@4 

;test for WDHA bit 

; read 

mean sum 



clr.l 

dO 



jsr 

scsiwr 

;write dummy to wdha 


isr 

scsird 

;read high 16 bits 


move 

wd0,d6 

;store in d6 


swap 

d6 

;get it in high word 


clrJ 

dO 



jsr 

scsiwr 

;write dummy to wdha 


jsr 

scsird 

;read low 9 bits 


move,wd0,d6 

;store in d6 


asl.w 

#7,d6 

;shift it left to the most sig word. 


asr.i 

#7,d6 

; shift the whole thing right. 


; read the mean square sum 


cir.l 

dO 


jsr 

scsiwr 

; write dummy to wdha 

jsr 

scsird 

;rsad high 16 bits 

move.wdO.d7 

;store in d7 

swap 

d7 

;gef it in most sig word. 

clr.l 

dO 


jsr 

scsiwr 

;write dummy to wdha 

isr 

scsird 

;read low 9 bits 

move.wd0,d7 

;store in d7 

asl.w 

#7,d7 

;shift it left to the most sig word. 

asr.i 

#7,d7 

;shift the whole thing right. 

movem.l 

Op)+,aO-a6/'dO’dS restore registers 


; Name: SCSIWr 

; Function: Send the 16 bit integer in dO to the hearing aid via the SCSI bus. 
; Input: dO contains the word to write. 

; Output: None 
SCSIWr: 

movem.l dO-d3,-{SP) 

move.b #abs+dck+dtn, $58001 1 ;assert data bus 

move.w#1,d2 ;set the 

roxr.w #l,d2 ;extend bit 

move.w#1 7-1 ,d2 ;set loop counter 

@1: roxl.w #t.d0 ;move in next bit 

move.wdd.dl ;copy dO 
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and.w #1,d1 ;mask is bit 

move.b dl, $580001 ;wri!e to output data bus 

move.b #abs+ack+dtn, $58001 1 .assert acknowledge (dock into wdha) 

move.b tabs+dck+dtn,$5800t 1 Reassert acknowledge (clock into wdha) 

dbra d2.@1 ;loop counter 

move.w#1000 r d3 ;write delay 

@2 dbra d3,@2 

move.b #dbs+dck+dtn, $58001 1 Reassert data bus and ali 

movem.l (SP)+,dO~d3 

rts 

; Name: SCSIRd 

; Function: Read a word from the SCSI bus in register dO. 

; Input: None 

; Output: dO contains the word red 
SCSIRd: movem.l dt-d3,-(SP) 

move #16-1 ,d2 ;set too p counter 

move.b #dbs+dck+dtn,$SB001 1 Reassert data bus and ail 

@1: asl.w #1 ,d0 ;shift 

move.b $580000, dl ;read data bus 

move.b #dbs+atn+dck, $58001 1 ;assert attention (clock out wdha) 

and.w #2,d1 ;mask input bit (bit 1) 

asr.w #1,d1 put in position 0 

add.w dl ,d0 ;add bit to data 

move.b #dbs+dtn+dck, $58001 1 .deasserl attention (clock out wdha) 

move. w #250, d3 ;deassert-asseii delay 

@2 dbra d3,@2 

dbra d2,@1 ;k>op counter 

movem.l (SP)>,d1-d3 

rts 

;Test SCSI read bit (Bit 1). Returns with dO = 0 or 2 
SCSlBtst: 

; If the mouse button is pressed then stop communication 

movem.l aO-al /d0-d2,-{sp) ; save registers 

clr.w *(sp) 

^Button 
tst.w (sp)+ 

bne StopCom 

movem.l (sp)+, a0-a1/d0-d2 

move.b #dbs+dck+dtn,$58Q01 1 Reassert data bus and all 

move.b $580000,d0 ;read SCSI bus 

and.w #2,dQ ;mask position i 

rts 

; If the button is pressed dunng communication we set the hearing aid 
; to idle and return to the main loop. Note that extra parameters may 
; be left on the stack from the routines which called SCSlBtst. 

StopCom: 

move.w#-5,d0 
bsr SCSIWr 

bsr SCSIWr 

movem.l (sp) + ,a0*a1/d0-d2 ; Restore registers 

clr.l {sp)+ ; Pop SCSlBtst return address 
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bra EventLoop 
; Name: SCS Interrogate 

; Function: Interrogate the hearing aid to determine which program it is running, 
returning the program identifier code that the hearing aid sends back. 

If the hearing aid does not respond within a certain timeout period, the 
; routine returns with zero as the result. 

; Input: None 

; Output: The program code <on the stack) 

;“*Note: The user should push a word for the result 
SCSI Interrogate: 

movem.l dO*d7/aO-a6,-{sp) 

move.w#-l0 ( d0 interrogate WDHA for program type 



bsr 

SCSIWr 



clr.w 

dO 



move.w #20000, d7 


@1 

sub.w 

#1 ,d7 



beq 

@2 



jsr 

ScsiBTst 

;test for WDHA 


beq 

@1 

; ready 

@2 

jsr 

scsird 

;read high 16 bits into dO 


move,wd0,64(sp) 



move.w#- 1 ,d0 

;set hearing aid mode 


bsr 

SCSIWr 



movem.l {sp)+,dO*d7/aO-a6 

rts 
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: WDHASCSI.hdr 



XREF 

SetParam 


XREF 

Set Coefficients 


XREF 

SetFiieParams 


XREF 

SCSI Interrogate 


XREF 

wdhatest 


XREF 

SCSIWr 


XREF 

SCSIRd 


XREF 

SCSIBTst 

PROBE 

ECU 

9 

FIELD 

EQU 

12 

INPUT 

ECU 

7 

OUTPUT 

ECU 10 
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;WDHADi$k.asm file 


Include FSEqu.D 

Include MacTraps.D ; Use System and ToolBox traps 


Include 

ToolEquX.D 

; Use ToolBox equates 

Include 

SysEquX.D 


Include 

QuckEquXLD 


XDEF 

DiskC reate 


XDEF 

DiskRead 


XDEF 

DiskWrite 


XDEF 

DiskEject 


XDEF 

DiskOpen 


XDEF 

DiskClose 


XDEF 

DiskSetFPos 


XDEF 

DiskSetEOF 


XDEF 

DiskSetFInfo 


ioNamePtr 

equ 18 

;nof included in .d files 

ioFVersNum 

aqu 26 

;not included in .d files 

ioMisc 

equ ioRefNum+4 ;not included in .d files 

DiskRead: 




;assumes d2 contains iofiefNum 

;assumes dl contains number of 512 byte sectors to read 
; assumes al points to the buffer to fill 
;returns with aO pointing to parameter block on stack 
;and with ioflesult in dO 

;the number of bytes actually read is returned in d3 {long) 


;make room on stack for 
;for parameter block 
;set AO for file manager caJI 


moveq #toVQE)Size/2 - 1,d0 
@1: clr.w -(sp) 

dbra dQ,@1 
move. I sp.aO 

move. wd2.ioRefNum(aO} 
mulu #5 1 2 , d 1 

move. I dl.ioReqCount(aO) 
divu #512,d1 
move. I al .ioQuffer(aO) 
_Read 

move. I ioActCount(aO),d3 
add #ioVQEISize,SP 
rts 


;and to access parameters in block 
;multiply number of sectors by 512 
; sectors required 
;restore dl 


DiskWrite: 

;assumes d2 contains ioRefNum 

;assumas dl contains number of 512 byte sectors to write 

;assumes al points to the buffer to write 

;retums with ioResult in dO 

;and aO pointing to parameter block on stack 
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moveq 

@ 1 : clr.w 

dbra 

move! 


#ioVQEISize/2 - 1 ,d0 

-<sp> 

d0,@1 

sp.aO 


;make room on stack for 
;for parameter block 
;set AO for file manager call 


move.wd2,ioRefNum(aQ) 
mulu #512, dl 
move. I dlJoReqCount(aO) 
divu #512, dl 
move.! al ,ioBuffer(aO) 
_Writs 

add #! 0 VGEISiza,SP 
rts 


;and to access parameters in block 
;sectors to write ’ 512 * bytes 
;blocks of 512 bytes required 
restore dl 


DiskSatFPos: 

;assumes d2 contains ioRefNum 

;assumes dl contains sector number to position at. 

; ret urns with ioResult in dO 

;and aO pointing to parameter block on stack 


moveq #ioVQ£ISize/2 - 1,d0 
@1: clr.w -{sp) 

dbra d0,@1 
move. I sp.aO 

move.wd2,ioRefNum(aO) 
move.w#1 .ioPosMode(aO) 


mulu #512, dl 
move.l dl ,ioPosOffset(aO} 
divu #512, dt 
_SetFPos 

add #ioVQE)Size,SP 
rts 


;make room on stack for 
;for parameter block 
;set AO for file manager call 

;and to access parameters in block 
;Q at current position 
;1 relative to beginning of media 
;3 relative to current position 

;blocks of 512 bytes required 


DiskClose: 

;assumes d2 contains ioRefNum 
;returns with ioResult in dQ 
and aO pointing to parameter block on stack 


moveq #ioVQEISize/2 - 1,d0 
@1: clr.w -(sp) 

dbra d0,@1 
move.] sp.aO 

move,wd2,ioRefNum{aO) 

_ciose 

add #ioVQEISi 2 e,SP 
rts 


;make room on stack for 
;for parameter block 
;set AO for file manager call 
;and to access parameter block 

;ioRefNum in d2 from open routine 


; d3 contains the drive number to eject 
DiskEject: 
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moveq # ioVQElSize/2 - 1,d0 
@1: clr.w *(s p) 

dbra dO,@1 
move. I sp.aO 
mave.w#-5,ioRafNum(aO) 
move.wda.ioDrvNumfaO) 
move.w#ejectCode r csCode{aO) 
_Eject 

add #ioVQElSize,$P 
rts 


DiskC reate: 

;assumes al painting to file name buffer 
; returns with aO pointing to parameter block an stack 
;d3 contains the drive number to create the file on. 

moveq #ioVQEISize/2 - 1,d0 
@1: clr.w -<sp) 

dbra d0,@l 

move.! sp,a0 ;set AO for file manager call 

;and to access parameter block 

move.! at .ioNamePtr(aO) ;put name painter in parameter block 
move.b #0,ioFVarsNum(aO) ;version number, always use zero 
;per page 11-61, inside mac 
move.wd3,ioVRefNum(aO) ;drive # 

_Create 

add #ioVQElSize,SP 
rts 


DiskOpen: 

;assumes al pointed to file name buffer 

;returns with aO pointing to parameter block on stack 

;ioRefNum in d2 and IoResuit in dl 

;upon return d3 contains the drive number the file was found on 

moveq #ioVQEISize/2 - 1,d0 
@1: clr.w -{sp> 

dbra d0,@1 

move.t sp.aO ;set AO for file manager call 

;and to access parameter block 

move. I al JoNamePtr(aG) ;put name pointer in parameter block 
move.b #0,ioFVersNum(a0) ;version number, always use zero 
;per page 11-81, inside mac 
move.w#2 f ioVRe(Num(aO) external drive 

_Open 

move.w#2,d3 ;external drive 

move.wioRefNum(aO},d2 ;save ioRefNum of file in d2 

move.wroResult(aC),d1 ;get io resuft 

beq DOpenGood 

move.w#1 .ioVRefNum(aO) ;internal drive 

_Open 

mova.w#1 p d3 ;internal drive 
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move.wiofiefNum{aO),d2 ;save ioRefNum of file in d2 

move, w ioResult(a0),d1 ,get io result 

DOpenGood: 

add! #ioVQEISize,SP 
rts 


DiskSetEOF: 

; assumes d2 contains ioRefNum 

; assumes dl contains position to position at (a long). 

;retums with ioResult in dO 

;and aO pointing to parameter block on stack 


moveq #ioVQEISizey2 * l.dO 
@1: clr.w *(sp) 

dbra d0.@1 
move. I sp.aO 

move.wd2,ioRefNum<aO) 
move.w#1 joPosMode(aO) 


move.) dl.ioMiscfaO) 
_SetEOF 

move. wioResult(aQ),dQ 
add. I #ioVQEISize,SP 
rts 


;make room on stack for 
;for parameter block 
;set AO for fiie manager call 

;ar>d to access parameters in block 
:0 at current position 
,i relative to beginning of media 
;3 relative to current position 
.'blocks of 512 bytes required 

;get io result 


OiskSelFinfo: 

;assumes al pointing to file name buffer 
;assumes d6 contains file creator 
;assumes d7 contains file type 
;d3 contains the drive number to create the file on. 
;returns with aO pointing to parameter block on stack 
movem.i dO-d7/aO-a6,-{sp) 

moveq #ioVQE(Si2e/2 - 1,d0 
@1: clr.w -($p) 

dbra dO,<§M 
move.l sp.aO 

move. I sp,a4 
move.l al .ioNamePtr(aO) 
move.b #0,ioFVersNum(a0) 

move.wd3,ioVRefNum(a0) 

_GetFileinfo 
move.l a4,a0 
move.l d7.32{a0) 
move.l d6.36(a0) 

_SelFt!elnfo 
add,! frioVQElSize.SP 
movem.i (Sp)+,d0-d7/a0*a6 

rts 


;set AO for file manager call 
;and to access parameter block 

put name pointer in parameter block 
;version number, always use zero 
;per page 11-61, inside mac 
;drive t 
;get file info 
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; WDHADisk.hdr 

; This file must be Included if your program uses the disk commands. 
XREF 0 is kC reate 

XREF Disk Re ad 

XREF OiskWrite 
XREF OiskEject 
XREF DiskOpen 
XREF DiskClose 
XREF DiskSetFPos 
XREF DiskSetEOF 
XREF DiskSetFInfo 
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What is claimed is: 

1. A hearing aid comprising: 

a microphone for producing an input signal in response to 
sound; 

a plurality of channels connected to a common output, 5 
each channel comprising: 

a filter with preset parameters for receiving the input 
signal and for producing a filtered signal; 
a channel amplifier responsive to die filtered signal for 
producing a channel output signal; 10 

a channel gain register for storing a gain value; 

a channel preamplifier having a preset gain for amplifying 
the gain value to produce a gain signal; 
wherein the channel amplifier is responsive to the 
channel preamplifier for varying the gain of the 15 
channel amplifier as a function of the gain signal; 
means for establishing a channel threshold level for the 
channel output signal; and 

means, responsive to the channel output signal and the 
channel threshold level, for increasing the gain value 20 
when the channel output signal falls below the 
channel threshold level and for decreasing the gain 
value when the channel output signal rises above the 
channel threshold level; 

25 

wherein the channel output signals are combined to 
produce an adaptively compressed and filtered output 
signal; and 

a transducer for producing sound as a function of the 
adaptively compressed and filtered output signal. 30 

2. The hearing aid of claim 1 wherein the increasing and 

decreasing means in each of the channels comprises means 
for increasing the gain value in increments having a first 
preset magnitude and for decreasing the gain value in 
decrements having a second preset magnitude. 35 

3. The hearing aid of claim 2 wherein the increasing and 
decreasing means in each of the channels further comprises: 

a comparator for producing a control signal as a function 
of the level of the channel output signal being greater 
or less than the channel threshold level; and 40 

an adder responsive to the control signal for increasing the 
gain value by the first preset magnitude when the 
channel output signal falls below the channel threshold 
level and for decreasing the gain value by the second 
preset magnitude when the channel output signal rises 45 
above the channel threshold level. 

4. The hearing of claim 1 wherein file filters in the 

channels have preset filter parameters for selectively altering 
the input signal over substantially all of the audible fre- 
quency range. 50 

5. The hearing of claim 1 wherein each filter in the 

channels has preset filter parameters for selectively passing 
the input signal over a predetermined range of audible 
frequencies, each filter substantially attenuating any of the 
input signal not occurring in the predetermined range. 55 

6. A hearing aid comprising: 

a microphone for producing an input signal in response to 
sound; 

a plurality of channels connected to a common output, 
each channel comprising: 60 

a filter with preset parameters for receiving the input 
signal and for producing a filtered signal; 
a channel amplifier responsive to the filtered signal for 
producing a channel output signal; 
a channel gain register for storing a gain value; 65 

a channel preamplifier having a preset gain for ampli- 
fying the gain value to produce a gain signal; 
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wherein the channel amplifier is responsive to the 
channel preamplifier for varying the gain of the 
channel amplifier as a function of the gain signal; 
means for establishing a channel threshold level for the 
channel output signal; and 

means, responsive to the channel output signal and the 
channel threshold level, for increasing the gain value 
when the channel output signal falls below the 
channel threshold level and for decreasing the gain 
value when the channel output signal rises above the 
channel threshold level; 

a second channel amplifier responsive to the filtered 
signal for producing a second channel output signal; 
and 

means for programming the gain of the second channel 
amplifier as a function of the gain value for the 
respective channel; 

wherein the second channel output signal is combined 
with the second channel output signals of the other 
channels for producing a programmably compressed 
and filtered output signal; and 
a transducer for producing sound as a function of the 
programmably compressed and filtered output signal. 

7. The hearing aid of claim 6 wherein the programming 
means in each channel comprises means for varying the gain 
of the second channel amplifier as a function of a power of 
the gain value for the respective channel. 

8. The hearing of claim 6 wherein the filters in the 
channels have preset filter parameters for selectively altering 
the input signal over substantially all of the audible fre- 
quency range. 

9. ITie hearing of claim 6 wherein each filter in the 
channels has preset filter parameters for selectively passing 
the input signal over a predetermined range of audible 
frequencies, each filter substantially attenuating any of the 
input signal not occurring in the predetermined range. 

10. A hearing aid comprising: 

a microphone for producing an input signal in response to 
sound; 

an amplifier for receiving the input signal and for pro- 
ducing an output signal; 

means for establishing a threshold level for the output 
signal; 

a comparator for producing a control signal as a function 
of the level of the output signal being greater or less 
than the threshold level; 
a gain register for storing a gain setting; 
an adder responsive to the control signal for increasing the 
gain setting by a first preset magnitude when the output 
signal falls below the threshold level and for decreasing 
the gain setting by a second preset magnitude when the 
output signal rises above the threshold level; 
wherein the gain register stores the gain setting as a first 
plurality of least significant bits and as a second plu- 
rality of most significant bits; 
wherein the first preset magnitude comprises a number of 
bits less than or equal to a total number of bits com- 
prising the least significant bits; 
wherein the amplifier is responsive to the most significant 
bits stored in the gain register for varying the gain of 
the amplifier as a function of the gain setting; and 
a transducer for producing sound as a function of the 
output signal. 

11. The hearing of claim 10 wherein the amplifier com- 
prises a two stage amplifier, the first stage having a variable 
gain and the second stage having a predetermined gain. 
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12. The hearing aid of claim 10 further comprising means 

for producing a timing sequence wherein the gain register is 
enabled in response to the timing sequence for receiving the 
gain setting increase or decrease from the adder during a 
predetermined portion of the timing sequence. 5 

13. The hearing aid of claim 10 wherein the adder further 
comprises a secondary register for storing a first and second 
preset magnitude and wherein the adder is responsive to the 
secondary register for increasing the gain setting in incre- 
ments corresponding to the first preset magnitude and for io 
decreasing the gain setting in decrements corresponding to 
the second preset magnitude. 

14. The hearing aid of claim 10 further comprising means 
for clipping the output signal at a predetermined level and 
for producing an adaptively clipped compressed output 15 
signal. 

15. The hearing aid of claim 10 further comprising means 

for clipping the output signal at a predetermined level and 
for producing an adaptively clipped compressed output 
signal. 20 

16. The hearing aid of claim 10 further comprising a 

register for storing the first and second preset magnitudes, 
the register having six bits of memory for storing the first 
preset magnitude and six bits of memory for storing the 
second preset magnitude. 25 

17. The hearing aid of claim 10 further comprising a 
register for storing the first and second preset magnitudes; 
wherein the register stores both said magnitudes in logarith- 
mic form. 

18. The hearing aid of claim 17 further comprising a 30 
limiter for limiting the output signal; wherein the limiter 
clips a constant percentage of the output signal. 

19. A hearing aid comprising: 

a microphone for producing an input signal in response to 
sound; 35 

an amplifier for receiving the input signal and for pro- 
ducing an output signal; 

means for establishing a threshold level for the output 
signal; 

a comparator for producing a control signal as a function 40 
of the level of the output signal being greater or less 
than the threshold level; 
a gain register for storing a gain setting; 
an adder responsive to the control signal for increasing the ^ 
gain setting by a first preset magnitude when the output 
signal falls below the threshold level and for decreasing 
the gain setting by a second preset magnitude when the 
output signal rises above the threshold level; 
wherein the amplifier is responsive to the gain register for 50 
varying the gain of the amplifier as a function of the 
gain setting; 

a second amplifier responsive to the input signal for 
producing a second output signal; 
means for programming the gain of the second amplifier 55 
as a function of the gain setting in the gain register; and 
a transducer for producing sound as a function of the 
second output signal. 

20. The hearing aid of claim 19 wherein the programming 
means comprises means for varying the gain of the second 60 
amplifier as a function of a power of the gain setting in the 
gain register. 

21. A hearing aid comprising a plurality of channels 
connected to a common output, each channel comprising: 

a filter with preset parameters for receiving an input signal 65 
in the audible frequency range for producing a filtered 
signal; 
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a channel amplifier responsive to the filtered signal for 
producing a channel output signal; 
a channel gain register for storing a gain value; 
a channel preamplifier having a preset gain for amplifying 
the gain value to produce a gain signal; 
wherein the channel amplifier is responsive to the channel 
preamplifier for varying the gain of the channel ampli- 
fier as a function of the gain signal; 
means for establishing a channel threshold level for the 
channel output signal; and 

means, responsive to the channel output signal and the 
channel threshold level, for increasing the gain value 
up to a predetermined limit when the channel output 
signal falls below the channel threshold level and for 
decreasing the gain value when the channel output 
signal rises above the channel threshold level; 
wherein the channel output signals are combined to 
produce an adaptively compressed and filtered output 
signal. 

22. The hearing aid of claim 21 wherein the increasing 
and decreasing means in each of the channels comprises 
means for increasing the gain value in increments having a 
first preset magnitude and for decreasing the gain value in 
decrements having a second preset magnitude. 

23. The hearing aid of claim 22 wherein the increasing 
and decreasing means in each of the channels further com- 
prises: 

a comparator for producing a control signal as a function 
of the level of the channel output signal being greater 
or less than the channel threshold level; and 
an adder responsive to the control signal for increasing the 
gain value by the first preset magnitude when the 
channel output signal falls below the channel threshold 
level and for decreasing the gain value by the second 
preset magnitude when the channel output signal rises 
above the channel threshold level. 

24. The hearing aid of claim 23 wherein the adder in a 
particular one of the channels further comprises a secondary 
register for storing the first and second preset magnitudes for 
the particular channel; and wherein the particular adder is 
responsive to the secondary register for increasing and 
decreasing the gain value in the particular channel gain 
register by said first and second magnitudes. 

25. The hearing aid of claim 21 further comprising means 
for producing a timing sequence; wherein the channel gain 
register in at least one of the channels is enabled in response 
to the timing sequence for receiving the gain value from the 
respective adder during a predetermined portion of the 
timing sequence. 

26. The hearing aid of claim 21 wherein each channel 
further comprises means for clipping the channel output 
signal at a predetermined level for producing an adaptively 
clipped and compressed channel output signal. 

27. The hearing aid of claim 21 wherein the filters in the 
channels have preset filter parameters for selectively altering 
the input signal over substantially all of the audible fre- 
quency range. 

28. The hearing aid of claim 21 wherein each filter in the 
channels has preset filter parameters for selectively passing 
the input signal over a predetermined range of audible 
frequencies, each filter substantially attenuating any of the 
input signal not occurring in the predetermined range. 

29. The hearing aid of claim 21 wherein the filters in each 
of the channels comprise finite impulse response filters. 

30. The hearing aid of claim 21 wherein each channel 
further comprises: 
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a second channel amplifier responsive to the filtered 
signal for producing a second channel output signal; 
and 

means for programming the gain of the second channel 
amplifier as a function of the gain value for the respec- 5 
tive channel; 

wherein the second channel output signal is combined 
with the second channel output signals of the other 
channels for producing a programmably compressed 
and filtered output signal. 10 

31. The hearing aid of claim 30 wherein the programming 
means in each channel comprises means for varying the gain 
of the second channel amplifier as a function of a power of 
the gain value for the respective channel. 

32. The hearing aid of claim 31 wherein the programming 15 
means in each channel further comprises a register for 
storing a power value and wherein the programming means 
varies the gain of the second channel amplifier as a function 

of the value derived by raising the gain value for the 
respective channel to the power of the stored power value. 20 

33. The circuit of claim 30 wherein the first and second 
channel amplifiers of each channel each comprise a two 
stage amplifier, the first stage having a variable gain and the 
second stage having a preset gain. 

34. A hearing aid for use by a person having a hearing 25 
impairment spanning a predetermined frequency range, the 
hearing aid comprising: 

a microphone for producing an input signal in response to 
sound; 30 

only one broadband filtering channel spanning the prede- 
termined frequency range of the hearing impairment 
said channel comprising: 

a variable filter with separately variable filter param- 
eters for receiving the input signal and for producing 35 
an adaptively filtered signal; and an amplifier for 
receiving the adaptively filtered signal and for pro- 
ducing an amplified adaptively filtered output signal; 
wherein said broadband filtering channel has a band- 
width corresponding to the predetermined frequency 40 
range of the hearing impairment; 

a preset filter with preset parameters responsive to the 
input signal for producing a characteristic signal; 

a detector responsive to the characteristic signal for 
producing a control signal, the detector including 45 
means for programming the time constant of the detec- 
tor; 

means responsive to the detector for producing a log value 
representative of the control signal; 

a memory for storing a preselected table of log values, 
filter parameters and gain values; 

wherein the memory is responsive to the log value pro- 
ducing means for selecting a filter parameter and a gain 
value from the preselected table for the variable filter 55 
and the amplifier, respectively, as a function of the 
produced log value; wherein the variable filter and the 
amplifier are responsive to the memory for varying the 
parameters of the variable filter and varying the gain of 
the amplifier as a function of the selected filter par am- ^ 
eter and gain value, respectively; and wherein said 
hearing aid does not include the use of a microproces- 
sor; and 

a transducer for producing sound as a function of the 
amplified adaptively filtered output signal. 65 

35. The hearing aid of claim 34 wherein the varying 
means comprises: 
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means responsive to the detecting means for producing a 
log value representative of the detected characteristic; 
and 

a memory for storing the look-up table comprising a 
preselected table of log values and related filter param- 
eters and gain values, 

said memory being responsive to the log value producing 
means for selecting a filter parameter and a gain value 
from the look-up table as a function of the produced log 
value, said variable filter being responsive to the 
memory for varying the parameters of the variable filter 
as a function of the selected filter parameter, and said 
amplifier being responsive to the memory for varying 
the gain of the amplifier as a function of the selected 
gain value. 

36. A hearing aid comprising: 

a microphone for producing an input signal in response to 
sound; 

a plurality of channels connected to a common output, 
each channel comprising a filter with preset parameters 
for receiving the input signal and for producing a 
filtered signal and an amplifier responsive to the filtered 
signal for producing a channel output signal; 
a second filter with preset parameters responsive to the 
input signal for producing a characteristic signal; 
a detector responsive to the characteristic signal for 
producing a control signal, the detector including 
means for programming the time constant of the detec- 
tor; 

means responsive to the detector for producing a log value 
representative of the control signal; and 
a memory for storing a preselected table of log values and 
gain values; wherein the memory is responsive to the 
log value producing means for selecting a gain value 
from the preselected table for each of the amplifiers in 
the channels as a function of the produced log value, 
and wherein each of the amplifiers in the channels is 
responsive to the memory for separately varying the 
gain of the respective amplifier as a function of the 
respective selected gain value; and 
a transducer for producing sound as a function of the 
combined channel output signals; 
wherein said hearing aid does not include the use of a 
microprocessor. 

37. The hearing aid of claim 36 wherein the filters in the 
channels have preset filter parameters for selectively altering 
the input signal over substantially all of the audible fre- 
quency range. 

38. The hearing aid of claim 36 wherein each filter in the 
channels has preset filter parameters for selectively passing 
the input signal over a predetermined range of audible 
frequencies, each filter substantially attenuating any of the 
input signal not occurring in the predetermined range. 

39. The hearing aid of claim 36 wherein the filters in each 
of the channels comprise finite impulse response filters, and 
wherein the second filter comprises a finite impulse response 
filter. 

40. The hearing aid of claim 36 wherein the second filter 
is constituted by one of the filters in one of the channels. 

41. A hearing aid comprising: 

a plurality of channels connected to a common output, 
each channel comprising: 

a filter with preset parameters for receiving an input signal 
in the audible frequency range and for producing a 
filtered signal; 
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a channel amplifier responsive to the filtered signal for 
producing a channel output signal; 

means for establishing a channel threshold level for the 
channel output signal; 

a comparator for producing a control signal as a function 
of the level of the channel output signal being greater 
or less than the channel threshold level; 

a channel gain register for storing a gain setting; 

an adder responsive to the control signal for increasing the 
gain setting by a first preset magnitude when the 
channel output signal falls below the channel threshold 
level and for decreasing the gain setting by a second 
preset magnitude when the channel output signal rises 
above the channel threshold level; and 

a second channel gain register for storing a predetermined 
channel gain value to define an operating range for the 
channel as a function of a signal level of the input 
signal; 

wherein the channel amplifier is responsive to the gain 
register and to the second channel gain register for 
varying the gain of the channel amplifier as a function 
of the gain setting and the predetermined channel gain 
value; and 

wherein the channel output signals are combined to 
produce an adaptively compressed and filtered output 
signal. 

42. The hearing aid of claim 41 wherein the channel 
amplifiers each comprise a two stage amplifier, wherein the 
first stage has a predetermined gain for defining an operating 
range for the respective channel and the second stage has a 
variable gain responsive to the first stage. 

43. The hearing aid of claim 42 wherein the first stage of 
each of the two stage amplifiers further comprises means for 
sequentially modifying the gains of each of the respective 
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second stages from first to last as a function of the level of 
the input signal. 

44. The hearing aid of claim 41 wherein the filters in the 
channels have preset filter parameters for selectively altering 

5 the input signal over substantially all of the audible fre- 
quency range. 

45. The hearing aid of claim 41 wherein each filter in the 
channels has preset filter parameters for selectively passing 
the input signal over a predetermined range of audible 
frequencies, each filter substantially attenuating any of the 

0 input signal not occurring in the predetermined range. 

46. The hearing aid of claim 41 wherein the filters in each 
of the channels comprise finite impulse response filters. 

47. The hearing aid of claim 41 wherein the first and 
second magnitudes in a particular one of the channels are 

15 different numerically from the first and second magnitudes 
in another one of the channels. 

48. The hearing aid of claim 41 wherein the adder in a 
particular one of the channels further comprises a secondary 
register for storing the first and second preset magnitudes for 

20 the particular channel; and wherein the particular adder is 
responsive to the secondary register for increasing and 
decreasing the gain value in the particular channel gain 
register by said first and second magnitudes. 

49. The hearing aid of claim 41 further comprising means 

25 for producing a timing sequence; wherein the channel gain 

register in at least one of the channels is enabled in response 
to the timing sequence for receiving the gain setting from the 
respective adder during a predetermined portion of the 
timing sequence. 

30 50. The hearing aid of claim 41 wherein each channel 

further comprises means for clipping the channel output 
signal at a respective predetermined level for producing an 
adaptively clipped and compressed output signal. 
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